FUNCTIONAL TEST PART 1 EP-DZRMC-A-DL-A OCT 1977 


MD-11- ee COPYRIGHT ©1977 
FICHE 1 OF 2 yrs IN USA 





FUNCTIONAL TEST PART 1 EP-DZRMC-A-DL-A OCT 1977 
MD-11-DZRMC-A COPYRIGHT © 1977 lijglijtjayt 


__FICHE2OF2 MADEIN USA 





B01 


maha Se ne DZRACA — RNG FUNCTIONAL TEST, PART 1 ACY Y11 30110469 Pa-TUL-77 14:32 PAGE a he 
OZRNCA.P11 29-JUL-77 13:33 


1 -REM \ 

e 

3 

4 

5 

6 

7 , 

8 

3 

10 

ll 

le 

13 

14 

1S 

16 

£4 IDENTIFICATION 
sh PRODUCT CODE: MAINDEC-11-DZRMC-A-D 
g3 PRODUCT NAME: ay FUNCTIONAL TEST, 
Sc 1 
3 DATE CREATED: 1 AUGUST 77 
se MAINTAINER: DIAGNOSTIC GROUP 
re AUTHOR: DOUG RIIKONEN 
32 
33 
34 
3 
: 
38 THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 
39 AND SHOULD NOT BE ONS ate AS_A COMMI BY DIGITAL EQUIPMENT 
40 CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
uo FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL. 

: Lar or Ra eg oS 

: SOE Srey era SS PE 
45 (WITH INCLUSION OF Ore Te arse be ST Te ONLY FOR USE IN SUCH 

| SYSTEM, EXCEPT AS MAY 0 N WRITING BY DIGITAL 

48 DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE 
49 OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 
2 DIGITAL. 

Se COPYRIGHT (C) 1977, DIGITAL EQUIPMENT CORPORATION 


BBR VRR IO BISA ZINK -SSSLEREGRLSSOVR RLS a3 


SIRRIBA-SBBIKRLS8 


Ca eed ed eed ed 


COl 


MACY11 30(1046) 29-JUL-77 14:32 PAGE 2 SE@ 000S 
. PAGE 
CONTENTS 
1. INTRODUCTION 
1. ABSTRACT 


2. UNIT UNDER TEST 


2. OPERATING REQUIREMENTS 
1. HARDWARE REQUIREMENTS 
2. MEDIA REQUIREMENTS 
3. PREREQUISITE DIAGNOSTIC PROGRAMS 


3. OPERATING PROCEDURE 
LOADING 

SWITCH OPTIONS 
STARTING 

HAL TING 
RESTARTING 


re 


4. OPERATOR INTERFACE 
PROGRAM I.D. 
CONSOLE DIALOGUE 
PROGRESS REPORTS 
PERFORMANCE REPORTS 
PROGRAM HALTS 
ERROR REPORTS 


de 


S. ENVIRONMENTAL SUPPORT 
1. PROCESSOR COMPATIBILITY 


- RMO3 FUNCTIONAL Rie ie PART 1 


OZRNCA 
DZRMCA.P11 29-JUL-77 


109 


MACY11 30(1046) 29-JUL-77 14:32 PAGE 3 


2. DUAL PORT CONFIGURATIONS 


cad 


De Pa be he be he eee pe ee 
—ODONOMU CWO 


EQ] 


RMO3 FUNCTIONAL TEST, PART 1 MACY11 30(1046) 29-JUL-77 14:32 PAGE 4 
1 = 29-JUL-77 13:33 


MEMORY PARITY HARDWARE 

MEMORY MANAGEMENT HARDWARE 
ACT, APT COMPATIBILITY 

XXDP COMPATIBILITY 

OPERATING SYSTEM COMPATIBILITY 


NOnsy 


6. TEST DESCRIPTION 


SEQ 0007 


a 


bb 9 PSPs has Fs b= hb = Bn Be Pe ee ee 


S538 VRR SEE BBBVR 


Boe oe 99 
o— 


SEIS IAA LINLSSS CP RCOR EO SUSU T NNO Se SaALORE 


- RMO3 FUNCTIONAL TEST, PART 1 MACY11 30(1046) 29-JUL-77 14:32 PAGE S SE@ 0008 
Pil 29-JUL-77 13:33 


1.0 INTRODUCTION 


1.1 ABSTRACT 


THE RMO3 SUBSYSTEM FUNCTIONAL TEST IS A STAND ALONE PROGRAM WHICH 
USES FUNCTIONAL MEANS TO VERIFY THE OPERABILITY OF THE RM03 DISK 
SUBSYSTEM. IN PARTICULAR, THE PROGRAM SERVES THE FOLLOWING PURPOSES: 


TO EXPLICITLY ESTABLISH CONFIDENCE IN THE BASIC OPERATIONS OF THE 
DISK rie INCLUDING MECHANICAL POSITIONING AND DATA TRANSFER 


TO IMPLICITLY ESTABLISH CONFIDENCE IN THE ODRIVE/ADAPTER 
ELECTRICAL INTERFACE; 


TO VERIFY THE FUNCTIONALITY OF THE RMO3 SUBSYSTEM, INCLUDING THE 
CONTROLLER, MASSBUS ADAPTER AND THE DISK DRIVE. 


THE TEST IS COMPRISED OF 3 PARTS, WHICH NORMALLY BE RUN IN 
SEQUENCE START ING WITH PAR? 1. BRIEFLY BART TESTS HOUSEKEEPING 
AND MECHANICAL POSITIONING a tagd hs F pant 


1.2 UNIT UNDER TEST 


THE UNIT UNDER TEST (UUT) IS THE RMO3 DISK ICH 


SUBSYSTEM WH 
MASSBUS ADAPTER 


AND fee TOR Ma DISK DRIVE. NOTE THAT A Broke PACK IS REQUIRED 
FOR TESTING AND te Fons  DERED AN INTEGRAL OF THE STORAGE MODULE DISK 


2.0 OPERATING REQUIREMENTS 
2.1 HARDWARE REQUIREMENTS 

THE FOLLOWING MINIMUM HARDWARE CONFIGURATION, ASSUMED TO BE 
OPERATIONAL. IS REQUIRED TO LOAD AND EXECUTE THE RMO3 SUBSYSTEM 
FUNCTIONAL TEST: 

PDP-11 PROCESSOR 

16K MEMORY 

KW1i-L OR KW11-P CLOCK 

PROGRAM LOADING DEVICE 


TERM 
RH11 OR RH70 CONTROLLER 
UNIT UNDER TEST, 


WHERE THE UNIT UNDER TEST CONSISTS OF ONE TO EIGHT RMO3 ADAPTERS, DISK 
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182 DRIVES AND DISK PACKS. 
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2.2 MEDIA REQUIREMENTS 


EACH UNIT BEING ee MUST A LOADED WITH A SCRATCH DISK PACK 
or TESTING BEGI 


me ORRATTED, BUT RUST ROT CONTAIN NEEDED INFORMATION BECAUSE THE PACK 


NOTE 
WHEN THE PROGRAM IS LOADED VIA THE RMO3 
DRIVE O IS NOT TESTED UNLESS THE 


OPERATOR SPECIFICALLY ENTERS THE DRIVE 
NUMBER DURING CONSOLE DIALOGUE. 


2.3 PREREQUISITE DIAGNOSTIC PROGRAMS 


RMO3 DISKLESS DIAGNOSTIC, DZRMJ-A 


3.0 OPERATING PROCEDURE 

3.1 LOADING 
THE PROGRAM MAY BE LOADED BY EITHER OF THE FOLLOWING MEDIA: 
. PAPER TAPE, USING THE STANDARD PAPER TAPE LOADING PROCEDURE; 
.XXDP MEDIA, USING THE APPROPRIATE LOADING DEVICE. 


NOTE 
WHEN THE PROGRAM IS LOADED VIA THE RMO3 
T TESTED UNLESS THE 


ORIVE O JIS 
OPERATOR SPECIFICALLY ENTERS THE DRIVE 
NUMBER DURING CONSOLE DIALOGUE. 


3.2 SWITCH OPTIONS 


THE FOLLOWING SWITCH OPTIONS ARE PROVIDED TO ENHANCE THE UTILITY 
OF THE PROGRAM. 


UNIT. THE PACK MAY BE FORMATTED OR 
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PAGE S 
ait? INHIBIT ERROR TYPEOUTS 
S11 NHIBIT TEST ITERATIONS 
SWi0 BELL ON ERROR 
SWO3 LOOP ON ERROR 
SWOS LOOP ON TEST IN SWO7-00 
THE LOW ORDER 8 SWITCHES (SWO7-SWO0) USED IN CONJUNCTION WITH 
we a SPECIFY THE OCTAL NUMBER be TH THE TEST WHICH THE PROGRAM WILL 
3.3 STARTING 


THE PROGRAM STARTS AT LOCATION 200, WHICH PROVIDES WORST CASE 
yest Series T RUNNING IN AN AUTOMATIC Bekins dF IF RUNNING IN 


A STAND-ALONE TRONME: DIALOGUE TO ALLOW 
THE OPERATOR TO CONTROL TEST CONDITIONS. 


3.4 HALTING 
THE PROGRAM CAN BE HALTED BY TYPING CONTROL C FROM THE CONSOLE. 
3.5 RESTARTING 
THE PROGRAM CAN BE RESTARTED AT ADDRESS 200. 
fen 
4.0 OPERATOR INTERFACE 
4.1 PROGRAM ID 


THE PROGRAM TYPES ITS TITLE AND MAINDEC NUMBER THE FIRST TIME IT 
IS STARTED AFTER BEING LOADED. PROGRAM IDENTIFICATION hoes NOT OCCUR 
IF THE PROGRAM IS RESTARTED. 


4.2 CONSOLE DIALOGUE 


WHEN THE PROGRAM IS RUNNING IN STAND ALONE MODE, 
CONSOLE DIALOGUE SEQNENCE AFTER TYPING THE PROGRAM I.D.. mag 


THE FIRST QUESTION TYPED oT IS: “TYPE HELP TEXT (Y OR N)?2". 
IF THE OPERATOR RESPONDS WI THE PROGRAM WILL TYPE A BRIEF HELP 
MESSAGE WHCIH WILL LIST SWITCH OPTtONS, ETC. 


IT ENTERS A 


SEQ 0012 
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vecTon ABBReSs (Yon WOT” OP he twists AOorESs Or THe Te Non 


aaie® PRE ate a Pe Sul rE 


SKIPS TO’ THE THIRO QUEST 


ne Gis QUEST (A) ya Tere at peyiCes 
Pee a nate 1 WITH CARR 


eat, HIS Tee, tee A CARR hata ct Peal: i 
sane ‘bevites ty ron Riererectfo THE GeERATOR TYPES Y me test 96 


RESTARTED USING. THE SAME DEVICES AS THE LAST TIME OTHERUISE., THE TEST 
wats THE DIALOGUE AS IF THE PROGRAM WERE STARTED FOR THE FIRST 


4.3 PROGRESS REPORTS 
OCCURS EACH TIME THE PROGRAM IS_ EXECUTED 


OF PASS REPORT 
FOR ALL ICES IN THE TEST QUE. THE END OF PASS REPORT INCLUDES A 
MESSAGE AND AN ERROR SUMMARY. 


4.4 PERFORMANCE REPORT 


NO PERFORMANCE REPORTS ARE GIVEN DURING THE EXECUTION OF THE 
PROGRAM. 


4.5 PROGRAM HALTS 


THERE ARE NO SCHEDULED HALTS DURING THE EXECUTION OF THE PROGRAM. 
PROCESSOR HALTS ARE DUE TO THE TRAP CATCHER. 


4.6 ERROR REPORTS 


THE FIRST LINE OF THE ERROR REPORT CONTAINS THE NUMBER OF THE 
UNIT BEING THE TEST NUMBER, THE ERROR NUMBER AND VALUE OF 
THE PROGRAM WHERE THE WAS a ae THIS LINE IS FOLLOWED 
BY THE MESSAGE: ONE OR MORE LINES OF TEXT WHICH GIVE A BRIEF 

T COMPREHENSIVE DESCRIPTION OF THE ERROR. THE ERROR MESSAGE 15 
Y tg ONE MORE PAIRS 4 tite CONTAINING DATA 
HEADERS AND ININENT TO THE ERROR, INCLUDING EXPECTED AND 


ACTUAL TEST RESULTS. 


SEQ 0013 
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5.0 ENVIRONMENTAL SUPPORT 
5.1 PROCESSOR COMPATIBILITY 
FUNCTIONAL TEST IS EXECUTABLE 


PROCESS ect Ri her Bil held OTe SE SYSTEM I REAR ENT 


costal IN DATA TRANSFER OPERAT, 


5.2 DUAL PORT CONFIGURATIONS 
THE RMOS SUBSYSTEM Te ioe TEST DOES NOT SPECIFICALLY TEST 
DUAL TORT LOGIC _IN IS EXECUTABLE ON RMO3 


LTE ANE aT a Me Ha Plt sue 


5.3 MEMORY PARITY HARDWARE 


MEMORY PARITY al IS NOT USED DURING THE EXECUTION OF THE 
RMO3 SUSBYSTEM FUNCTIONAL oF. 


5.4 MEMORY MANAGEMENT HARDWARE 


MEMORY MANAGEMENT HARDWARE IS NOT USED DURING THE RMO3 SUSBYSTEM 
FUNCTIONAL TEST. CAPABILITIES OF THE MASSBUS CONTROLLER. 


5.5 ACT11, APT11 COMPATIBILITY 

THE RMO3_ SUSBYSTEM Ay tin | TEST IS COM ATIOLE WITH ACTI1 AND 
APT11_ IN BOTH DUMP AND LL 
Oe ute A QUICK PASS DURING THE FIRST PASS IN Nn’ SUPPORT OF QUICK VERIFY 


5.6 XXDP COMPATIBILITY 


THE RMO3 SUSBYSTEM FUNCTIONAL TEST IS COMPATIBLE WITH XXDP IN 
DUMP AND CHAIN MODES, AND PROVIDES MEDIA PROTECTION IN THE CASE WHERE 
THE RMO3 IS THE XXDP LOADING DEVICE. 


SE@ 0014 
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5.7 OPERATING SYSTEM COMPATIBILITY 
THE PROGRAM IS NOT COMPATIBLE WITH ANY SOFTWARE OPERATING SYSTEM. 


SEQ 0015 
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4 PAGE | 
4 

uy 6.0 TEST DESCRIPTION 

414 

415 

416 

417 

ms 

: CONTROLLER ACCESS TEST 

: PURPOSE : 

he TO VERIFY THAT THE UTA OF THE RMOS SUBSYSTEM IS 
. CORRECT, AS DEFINED AT L . 

: PROCEDURE : 

429 Cea e ee eres SST ENTS Te TERORED TUNING 
L USING “ao ie TEST F REGISTER CONTENTS ARE IGNORED DURING 
431 THE TEST, TEST FAILS IF A BUS TIMEOUT OCCURS FOR 


REGISTER’ TRANSFER 


ANY 
TF THe TEST FaIhs tO, THE pnoopen 13 FH PRO IN A STAND 
ONE ENV LOCATION 4e IS PROGRAM WILL 


AL JUMP 
TO LOCATION 204 WHICH Fi Lous THE OPERATOR ‘TO CHANGE THE SBASE 
ADDRESS VIA CONSOLE DIALOGUE. THe OTHERNISE, THE PROGRAM ESCAPES TO 
THE PASS HANDLER. 


DEVICE AVAILABLE TEST 


PURPOSE : 

no ee TE HT THE WNIT UNOER TEST IS AVAILABLE FOR TESTING, 
PROCEDURE : 

FOR TESTI Pig befor" Sante a eae nel a 
STATUS, GIT 12 OF RecSe. 


. NONEXISTANT revi ~ THE DEVICE IS NONEXISTENT OR IS LOCKED 
ON THE ALTERNATE PORT AND IS THEREFORE NOT AVAILABLE FOR TESTING; 


-DEVICE NOT AVAILABLE - THE DEVICE EXISTS wr IS SEIZED BY 
THE ALTERNATE PORT AND IS NOT AVAILABLE FOR TESTING; 


-BUS TIMEOUT - THE MASSBUS CONTROLLER FAILED TO DETECT A 


FECRAE SERA IONIESS LER ESR SBSRRER 
=e 
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469 
i70 .DEVICE AVAILABLE - THE DEVICE IS AVAILABLE FOR TESTING. 
4 T WHICH CTS THE 
78 next DRIVE’ Toroe TECTED GF THe EViCe TS NOT AVAILABLE 
475 
4b 
477 
as DRIVE TYPE TEST 
480 
nT PURPOSE : 
483 TO VERIFY THAT THE UNIT UNDER TEST IS AN RMO3 SINGLE PORT OR 
a DUAL PORT SUBSYSTEM. 
ue? sroeesnagtons 
4eg THIS I ,. RMDT 
4B SELECTED. DEVICE a6 VERIFIES Voor TE Device Te’a SINGLE PORT OR 
430 DUAL SUBSYSTEM. IF THE SELECTED DEVICE IS NOT AN RMO3 
491 THE PROGRAM JUMPS TO THE SUBPASS HANDLER WHICH WILL SELECT THe 
nF NEXT DEVICE FOR TESTING. 
4gy 
yas 
496 
497 
me UNIBUS INITIALIZE TEST 
BT RP e 
TO FY THAT APPLICABLE SUBSYSTEM REGISTERS ARE 
INITIALI THE RESET INSTRUCTION. 
ae PROCEDURE : 
an7 NONZERO VALUES ARE WRITTEN IN EACH APPLICABLE REGISTER. A 
RESET INSTRUCTION IS EXE AND THE REGISTERS ARE TESTED TO 
208 INSURE THEY INITIALIZED. THIS TEST IS DONE ONCE BECAUSE OF 
210 APT COMPATIBILITY REQUI S. 
Sie THE FOLLOWING REGISTERS ARE PRESET BEFORE THE INITIALIZE 
13 OCCURS: 
1S RMCS1 - 003577 
218 an © FHPTM 
519 ee 7 
213 RMCS2 - 02103 
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RMERS - 777777 


10 A One 


040001 


THE DATA I TO FORCE DLT,TRE,SC AND OR 
TO F FR FRR schon : 


CONTROLLER CLEAR TEST 


PURPOSE : 


TO VERIFY THAT APPLICABLE 
INITIALIZED BY A “CONTROLLER CLEAR” 


PROCEDURE : 


PAGE 11 


te age REGISTERS ARE 


OPERATI 


veLueS fn THOSE. REGISTERS HIGH ARE INITIALIZED BY CONTROLLER 


LefsereRTs feof ro REE oT Uke Biaase® 2 ee, WO 


ERROR CLEAR TEST 


PURPOSE : 


A 


TO VERIFY THAT ALL APPLICABLE RH70 MASSBUS CONTROLLER STATUS 
AND ERROR CONDITIONS ARE INITIALIZED BY AN ERROR CLEAR OPERATION. 


PROCEDURE : 


OPERATION 


WRITING A ONE IN TRE, 


AN “RH70 ERROR CLEAR™ 
BIT 14 OF RMCSI WILL CLEAR THE FOLLOWING. Status BITS: 


. TRE, 


BIT 14 OF RNCS1 


-MCPE, BIT 13 OF RMCS1 - READ ONLY 


AT, 
-WCE, 
-UPE, 
NED, 


BIT 15 OF RMCS2 - READ ONLY 
BIT 14 OF RMCS2 - READ ONLY 
BIT 13 OF RMCS2 

BIT 12 OF RMCS2 - READ ONLY 


SEQ 0019 
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ee ee ae eee 
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-PGE, BIT 10 OF RNCS2 - READ ONLY 
-MXF, BIT 09 OF RMCS2 
-MDPE, BIT 08 OF RMCS2 - READ ONLY 


THE TEST SETS UPE AND MXF STATUS BITS, THEN SETS TRE (ERROR 
CLEAR) AND VERIFIES THAT ALL THE ABOVE STA S 


DRIVE STATUS TEST 


PURPOSE : 


Q VERIFY THAT THE STORAGE MODULE DISK DRIVE IS IN A STATE 
THAT PERMITS FURTHER TESTING. 


PROCEDURE : 


THIS TEST INITIALIZES THE MASSBUS AND EXAMINES STATUS OF THE 
SELECTED DEVICE FOR THE FOLLOWING CONDITIONS: 


.MOL, BIT 12 OF RMDS =1, INDICATING THAT UNIT READY IS 
ASSERTED BY THE DRIVE; 


BIT 11 OF RMDS =0, INDICATING THAT THE DRIVE IS NOT IN 
A WRITE EREROTECT STATE; 


pve BIT 07 RMER3 =0, INDICATING DRIVE om. IS 


BY THE DRIVE; 


UNS, BIT 14 OF RMER1 SHOULD EQUAL DVC, OTHERWISE AC POWER 
IS LOW OR'A FAILURE HAS OCCURRED WITH UNSAFE STATUS. ‘ 


PRIMARY/SECONDARY ERROR TEST 


PURPOSE : 


TO VERIFY THAT THE RMO3 CAN EXECUTE A COMMAND WITHOUT 
INCURRING UNEXPECTED ERRORS. PROCEDURE: 


THE TEST EXECUTES A PACK RENE OE TT Chen AND _MAKES SURE 
THAT GO RESETS AND THAT THERE ARE ITY ERRORS, Sera VOLUME 
VALID STATUS 1S IGNORED. 


SE@ 0020 


SCEGRRe Owes 
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DIAGNOSTIC MODE TEST 
PURPOSE : 
TO. VERIFY THAT MAINTENANCE HARDWARE IS OPERATIONAL. 


THE TEST THAT a ee ee SET AND RESET, THEN 


VERIFIES itl i , SKI, AND DVC” CAN BE CONTROLLED 


PACK ACKNOWLEDGE C 
AND VOLUME VALID STATUS, BIT 10 OF RMDS, IS CHECKED FOR ONE 


RECALIBRATE TEST 


PURPOSE : 


THE PRIMARY PURPOSE IS TO ASCERTAIN THAT THE ORIVE WILL 
EXECUTE A RECALIBRATE OPERATION TO THE EXTENT THAT “P 
“SKI” STATUS BECOME UNASSERTED AT THE C 
RECALIBRATE. THE SECONDARY PURPOSE IS T 
KNOWN STATE SO THAT FURTHER TESTS CAN CHECK F: 
CHANGES IN THE DRIVE. 


8 


PROCEDURE : 
THE RECALIBRATE TEST PRESETS DISK ores REGISTER 
BBic lS i PRTE eased he BUF uP ne call 


.SKI=0, “SEEK ERROR” IS INACTIVE; 


SEQ 0021 
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“ON CYLINDER” IS ACTIVE, AS INDICATED BY 


“POSITIONING IN PROGRESS” BEING INACTIVE; 
.IAE=0, NO “INVALID ADDRESS ERROR” DURING RECALIBRATE; 


twa “Pid Bale Re: READY ar Vier START OF he, Contes ir Toon 
CYLINOER STATUS WENT INACTIVE DRIVE RECEIVED 


-ATA=1, ATTENTION IS SET BY RECALIBRATE. 


ABORT RECALIBRATE TEST 
PURPOSE : 


TO VERIFY THAT THE RMO3_INHIBITS A RECALIBRATE WHEN AN ABORT 
CONDITION EXISTS AT THE START OF THE COMMAND. 


PROCEDURE : 


RECALIORATE CORRARD, VERIFYING THAT “PLP= RERRING INACTIVE. 


IVC RECALIBRATE TEST 
PURPOSE : 


TO VERIFY THAT INVALID COMMAND STATUS, BIT 12 OF RMERe, SETS 
WHEN VOLUME VALID IS INACTIVE DURING A RECALIBRATE COMMAND. 


PROCEDURE : 
THE PROGRAM SETS AND RESETS DIAGNOSTIC MODE WHICH CAUSES 
VOLUME VALID, BIT 6 OF RMDS TO RESET. S 


THE PROGRAM THEN EXECUTE 
A RECALIBRATE COMMAND AND VERIFIES THAT “IVC” STATUS SETS AND 
THAT “PIP REMAINS INACTIVE. 


IAE RECALIBRATE TEST 
PURPOSE : 


SEQ 0022 
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PAGE 1S 
TO VERIFY THAT INVALID ADORESS ERROR DOES NOT SET CURING aA 
RECALIBRATE COMMAND . 
PROCEDURE : 
THE TEST PRESETS THE DISK ADDRESS 


THE DESIRED 
fetal YeRare” CoH, BRR na" fat HGR AMAR BY LATE ne 


RECALIBRATE AT OFFSET 
PURPOSE : 
TO VERIFY THAT OFFSET MODE DOES NOT AFFECT RECALIBRATE. 


THE TEST EXECUTES AN OFFSET COMMAND, THEN EXECUTES A 
ee ee COMMAND AND VERIFIES THAT THERE ARE NO ERRORS DURING 


DRIVE CLEAR TEST 
PURPOSE : 


TO VERIFY THAT ALL APPLICABLE RMO3 MASSBUS ADAPTER ERROR AND ”° 
STATUS CONDITIONS ARE I VE CLEAR” COMMAND. 


PROCEDURE : 

THIS TEST WRITES ONES IN THOSE MASSBUS ADAPTER BITS WHICH 
ARE INITIALIZED BY DRIVE CLEAR , THEN ISSUES THE DRIVE CLEAR 
COMMAND AND VERIFIES THAT EACH BIT IS CLEARED. ADDITIONALLY 


I 
pth a Aa ARE NOT AFFECTED BY “DRIVE CLEAR™ ARE ALSO PRESET 


THE FOLLOWING ITEMS ARE PRESET: 

-RMER1, ERROR REGISTER 1 IS SET TO ALL ONES; 
-DMD, DIAGNOSTIC MODE IS SET; 

-RMER2, ERROR REGISTER 3, IS SET TO ALL ONES. 


DZRNCA - — FUNCTIONAL ests PART 1 
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PAGE 16 
* eames THE DRIVE CLEAR COMMAND, THE FOLLOWING ITEMS ARE 
-RMCS1, IS CHECKED FOR DVA=1, FO-F4 AND GO=0, ALL OTHER BITS 


DONT CARES; 


-RMOS, IS CHECKED FOR 0, EXCEPT FUR MOL,DPR,DRY, AND VV 
WHICH SHOULD BE ONE, AND PGM’WHICH IS A DONT CARE. 


-RMER1, IS CHECKED FOR 0; 
-RMAS, IS CHECKED TO INSURE THE APPROPRIATE ATA BIT IS 0; 


.RMMR, IS CHECKED FOR 0, EXCEPT FOR WORD CLOCK, LAST SECTOR, 
AND LAST SECTOR AND TRACK WHICH ARE DONT CARES; 


.RMMR2 IS CHECKED FOR 0 EXCEPT FOR THE TEST BIT WHICH IS 
ONE, AND REQA, REGS WHICH ARE DONT CARES; 


-RMEC2 IS CHECKED FOR 0; 
-RMER3 IS CHECKED FOR 0; 


NOP TEST 
PURPOSE : 
TO VERIFY THE EXECUTION OF “NOP” COMMAND. 
PROCEDURE : 
COMMAND IS EXECUTED ON THE SELECTED DEVICE AND STATUS 


A_NOP 
IS CHECKED TO VERIFY THAT THERE WERE NO ERRORS OR UNEXPECTED 
CHANGES IN STATUS. 


OFFSET TEST 
PURPOSE : 
TO VERIFY THE EXECUTION OF “OFFSET” COMMAND. 
PROCEDURE : 


THE OFFSET COMMAND IS EXECUTED AND THE PROGRAM CHECKS THAT 
OFFSET STATUS, BIT O OF RMDS IS SET AND THAT ATTENTION, BIT 15 OF 


SEQ 0024 


JO0e2 
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857 RMDS IS ALSO SET. ADDITIONALLY, CONTROLLER, ADAPTER, AND ORIVE 
858 STATUS IS CHECKED FOR UNEXPECTED CHANGES. 
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GO/ATA TEST 


PURPOSE : 
19 re ERAOd ohact HE. WILL RESET WITH “GO" PROVIDING 


PROCEDURE : 


ao mee ya OTT Oe eee IS SET USING AN OFFSET COMMAND - 


WRITE ATA TEST 
PURPOSE : 


TC VERIFY THAT ATTENTION CAN BE RESET BY WRITING THE 
ATTENTION SUMMARY REGISTER, RMAS. 


ATTENTION IS SET USING 
PROGRAM WRITES AO IN THE BTTENT ION ToT, THE, PROGR GAMARY REGISTE 
THT ATTENTION INS A FOLL 
1 IN RMAS AND VERIFIES THAT ATTENTION RESE 


E 
: 
: 
B 
f 
3 


ERROR/ATA TEST 
PURPOSE : 
TO VERIFY THAT “GO” DOES NOT RESET “ATA” WHEN THERE IS A 
ITE ERROR. 


PROCEDURE : 


ERROR “BiTS IS cf utTH A OFF al cornet ec ren ae OF pe 


VERIF Ie THAT THE ATTENTION BIT REMAINS SET. 


Picistariiniisce Rg peta: 


PROGRAM INTERRUPT TEST 


pee eres 
cWureO 


WwWowowo 
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Ri sd dab Ae a ale aE SE EASA SE ALY Ti fet 
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TO VERIFY THAT THE RMO3 SUBSYSTEM WILL GENERATE A PROGRAM 
eB nBrEB TY IS LESS THAN CONTROLLER 


ANO 
PROCEDURE : 
gees RU OLE HANEY STL SNR ch Ml TP 


INHIBIT INTERRUPT TEST 


PURPOSE : 

TO VERIFY THAT A PROC Sate tee Sy A es NOT SO TCL 7h 
EROGLED on (2) MEN processon PriORITY 18 LESS 
PROCEDURE : 


ATTENTION IS SET USING AN come MEM nec PRIORITY 


fecal Ha TO Tes PRIORITY. OFTHE CONTROLLER, 
iam ig IATERIUETS FRED} SRELED a PROCES 


RETURN TO CENTERLINE TEST 
PURPOSE : 
TO VERIFY THE EXECUTION OF “RETURN TO CENTERLINE” COMMAND. 
PROCEDURE : 


cratudy ExT 6 oF Robs TS Reset mo Twa ArTERTON, B17 16 Ob Rabe 


SET: UNEXPECTED STATUS OR ERROR C ARE ALSO VERIFIED. 


READ IN PRESET TEST 
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a5 PURPOSE : 


wi 
— 
“3 


ERS tb tad os ii 


SSS ais ep Rt pat 


eae ae ay ag ey ery are 
WOnNOULCW-O 


DS em he ee et Bt a bt bo bs eb pe he ee 
jalelelolo=j=l<j/-)<)=-) 


RRRPSRES 
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TO VERIFY THE EXECUTION OF “READ IN PRESET” COMMAND. 
torso 
aS es WON ZERO VALUES IN THOS ey COMO TER 
NITIAL za IN PRESET 


Bo VERIF: THe A CONTENTS OF EACH REGISTER. 
THE POLL outnc REGISTERS ARE CHECKED 


ONES AND VERIFIED 10Be SERO PETER THE RP COMMAND 3 primed 
ALL oS (001777) AND WO VERIFIED iO ie SRO AFTER SRIP COMMAND, 


VERIFIED TO BE ZERO TETER fhe FEST wT’ 1S PRESET (70 016000) AND 


RMDC CLEAR OFFSET TEST 


PURPOSE : 

TO VERIFY THAT WRITING THE DESIRED CYLINDER REGISTER (RMDC) 
WILL CLEAR OFFSET MODE. 
PROCEDURE : 

OFFSET MODE IS SET USING THE OFFSET COMMAND, THEN RESET BY 
WRITING RMOC. 


ILLEGAL FUNCTION TEST 
PURPOSE: 
- 10 VERIFY THAT THE RMO3 SUBSYSTEM DETECTS ALL ILLEGAL 
FUNCTIONS. 
PROCEDURE : 
EACH ILLEGAL FUNCTION CODE IS EXECUTED WITH 
VERIFYING THAT “ILLEGAL FUNCTION” STATUS, BIT O OF 


FOR SUBSYSTEM IS INITIALIZED PRI 
TPLEBAL FUNCTION TEST. 
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1028 
1029 


Pa fe be Pe Bm b= fae fae Ba as fee 


N“ 


ee ee et i ee eee 


BRSEIIISASINS SEER CEE CREE 


pe ebisinapstrintiale 


INVALID COMMAND TEST 
PURPOSE : 
TO VERIFY IVC ERROR DETECTION. 
PROCEDURE : 
THE RESETS VALID USING MAINTENANCE UNIT READY 
Ten 'EREGHTES a ROP COMFIAND i THe 


PROCESS IS REPEA FOR EACH FUNCTION CODE, WITH “IVC "BEING 
CHECKED ACCORDING TO THE FUNCTION. 


INVALID ADDRESS ERROR TEST 
PURPOSE : 
TO VERIFY IAE ERROR DETECTION. 
PROCEDURE : 


THE TEST EXECUTES EACH FUNCTION CODE WITH RMDA, AND RMDC SET 
TO ILLEGAL ADDRESSES, AND VERIFIES IAE ACCORDING TO THE FUNCTION. 


WRITE LOCK ERROR TEST 
PURPOSE : 
TO VERIFY WLE ERROR DETECTION. 
PROCEDURE : 
THE TEST SIMULA WRITE PROTECT ING_ MAINTENANCE 


WRITE 
PROTECT AND VERIFIES WLE AC ING TO THE FUNCTION BEING 
EXECUTED. EACH FUNCTION CODE IS TESTED. 


OPI TEST 
PURPOSE : 
TO VERIFY OPI ERROR DETECTION. 










DO3 
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13s 


PROCEDURE : 


i 
3 
XZ 
; 


BSESRASA eee ae 


Oo 
— 


Gen Boo pena, 


Re Soo Von wn OSS Ve Loe 


SSBVRRZBREBSBVRRZGS 


<= 


bm ee 0 eb bb be bb bb eb Be be eb be be PP he pe pepe 
ee 


ee be be bee be an be Be an Be an Be Ban Be me an Bae ae en be ae ae Pe me es be Pn me me ae ae Pe be me ne Pe 
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oF LINE COROIFION AND VERIFIES Opt StAtUs AccoRDINcLY, > ORIVE 


ERROR ABORT TESTS 
PURPOSE : 
TO TEST COMMAND EXECUTION DURING AN ABORT CONDITION. 
PROCEDURE : 


EACH FUNCTION CODE IS EXECUTED UNDER A SIMULATED UNSAFE 
CONDITION AND THE TEST VERIFIES THAT GO IS RESET. 


RMR TEST 
PURPOSE : 
TO VERIFY THAT RMR ERROR IS DETECTED. 
PROCEDURE : 


THE TEST EXECUTES A NOP COMMAND WITH DEBUG CLOCK ENABLED. 
ae GO SET, THE TEST WRITES RMCSI, VERIFYING THAT RMR ERROR 


PARITY ERROR TEST 
PURPOSE : 
TO VERIFY THAT PARITY ERRORS ARE DETECTED. 
PROCEDURE : 
WITH PAT eR a4 BAD PARI 


TY ON THE CONTROL BUS, THE 
TEST WRITES A NG ONE BIT PATTERN TO RMDA AND VERIFIES THAT 
AN ERROR IS DETECTED BY THE RMO3 FOR EACH PATTERN. 


a 


FO3 
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tag ILLEGAL REGISTER TEST 


oI 
— 


en ba Ds ee bs pine Pee Ps Bs B= Pe te 


BUFRLOOESSSEHE 


gee Bas Pe fe hha fet Bene eee Gee fn Bens Bae Pt Boo bs Poe fe Pe bs be bh Se Ph as Oe mo Pn bo he ho Re be ee 
uw 
wo 


SLPRLESLSSELEA EGO Salo LIN So SGA O RO SOI 
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PURPOSE : 
TO VERIFY THE DETECTION OF ILLEGAL REGISTER ADDRESSES BY THE 
SUSBSYSTEM. 


PROCEDURE : 
ILLEGAL REGISTER 


eg a Fa, ONE HP RE aeal eo eat 


cores JUFER IN TE RZD Witt RESPOND 10 18 LIMITED BY THE THE 
WAY THE JUMPER IS CUT. 


SEEK TESTS 
PURPOSE : 


THe Decution oF Seek Operations By The Reus SiesvaTeM USING A 


ELECTROME CHANT CAL HA POSTITONING HARDWARE. 


wu une. THe TH "Par, ie Test BECU IF “PIP” a ae 
on SERIE Oe eee er Bete te 


SIL tec te URTHER ERROR CHECKING. IF THERE 
ARY ERRORS. one 


TEST CHECKS FOR OPERATI 
TREN SP CONDARY 


SEEK TO LAST CYLINDER 
THIS TEST SEEKS TO THE LAST CYLINDER, I.E£., CYLINDER 822. 


SEEK TO FIRST CYLINDER 
THIS TEST SEEKS TO THE FIRST CYLINDER, I.E. CYLINDER O. 


SOBRE ORES 


Ipas Be ae Bae fe bom bas he fee $2 fe Be fn ee ne Be Be hb Be 


bh tb Pe he 
DONT CW 


rorurururorururor 


Dae he Pe be bs Be Pee hee ft bm Pe ft b= be be ee ee bs ee bs bee te Pe be ee et fs be he ee 


TESS LaA LOH S ABNER R OS Se SS 
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wv 


SEEK PRIME CYLINDERS 


THIS TEST SEEKS FORWARD TO EACH PRIME CYLINDER ADDRESS, 
I.E. ,CYLINDERS 1,2,4,8,...,Sl2. 


SEEK ZERO DIFFERENCE 
THIS TEST EXECUTES SUCCESSIVE SEEKS TO CYLINDER O. 


SEEK MAXIMUM DIFFERENCE FORWARD 
THIS TEST SEEKS TO CYLINDER O FOLLOWED BY A SEEK TO THE LAST 
CYLINDER. 


SEEK ADJACENT FORWARD 


THIS TEST SEEKS TO CYLINDER O, FOLLOWED BY A SEEK TO THE 
ADJACENT FORWARD CYLINDER, I.£., CYLINDER 1. 


SEEK ADJACENT REVERSE 


THIS TEST SEEKS TO CYLINDER 1, FOLLOWED BY A SEEK TO THE ADJACENT 
REVERSE CYLINDER, I.£., CYLINDER O. 


SEEK TO INVALID SECTOR 


WITH THE OFFSET REGISTER SET FOR 18 BIT FORMAT, THE 
SEEKS TO CYLINDER 0, TRACK O EACH I D 
VERIFIES THAT INVALID ADDRESS 
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SEEK TO INVALID TRACK 


ERROR SETS FOR EACH TRACK 


ROR 


PROCEDURE : 


DI 
"Tvc" STATUS IS SET. 


ABORT SEEK TEST 
PURPOSE : 


TO VERIFY THAT THE RMO3 I 
CONDITION EXISTS AT THE START OF 


PROCEDURE : 


SPR MASEL ES tad 


ee en ee ae ee ae ee en Be ae be be he Be ee en Be ae be Be ee ee ee ee bn ee Be = ae be bn ee a ee Pe pe 
Hs 


ReRSoR 


THE TEST SEEKS TO EACH INVALID TRACK ADDRESS WITH CYLINDER 


AND SECTOR ADDRESS SET 70 0 AND VERIFIES THAT INVALID ADDRESS 
ADDRESS. 


SEEKS TO EACH INVALID CYLINDER ADDRESS WITH 
TO O aaa THAT INVALID 


TO VERIFY THAT INVALID COMMAND S 
WHEN VOLUME VALID IS INACTIVE DURING 


261 

262 

263 

264 

sep SEEK TO INVALID CYLINDER 

267 THE PROGRAM 

268 SECTOR AND TRACK ADDRESS SET 
Ay ADDRESS ERROR SETS FOR EACH CYLINDER 
A 

273 

Bod IVC SEEK TEST 

276 

A | 

281 


he TEST RESETS VOLUME VALID 
AGNOSTIC MODE, THEN EXECUTES A SEEK COMMAND AND VERIFIES THAT 


NHIBITS SEEK WHEN AN ABORT 


THE TEST SETS AN ERROR IN THE ERROR REGISTER AND ISSUES A 
COMMAND, VERIFYING THAT “PIP” REMAINS INACTIVE 


SEQ 0037 


JO3 
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1308 SEEK AT OFFSET 


> 


KO3 
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PURPOSE : 


TO VERIFY THAT OFFSET MODE DOES NOT CAUSE ERRORS DURING 


ee 
-_ 
Piatetitrtatatetate 
- 


le ee ee ee ee a on oe 


LOOK AHEAD TEST 


O INSURE THAT THE SECTOR COUNT WHICH ORIGINATES AT THE 
pRIve™ AND IS VISIBLE THROUGH THE LOOK AHEAD REGISTER (RMLA) IS 
OPERATIONAL . 

PROCEDURE : 
WITH THE OFFSET REGISTER SET FOR 16 BIT FORMAT, THE PROGRAM 


SABLE TIE rhe ARRGE THE PIRET SALE CTS BETECTERY OA” ERTL 
age eat a Ma 
BIT FORMAT, WHERE THE LIMIT ON THE NUMBER OF SAMPLES IS 31. 


SEARCH EACH SECTOR ON CYLINDER 

PURPOSE : 

TO VERIFY THE EXECUTION OF SEARCH OPERATIONS WITH NO HEAD 

MOTION USING THE SECTOR PULSE FOR SECTOR COMPARE. 

PROCEDURE : 

THE TEST INTIALIZES AND RECALIBRATES THE DRIVE IF_ “PIP” 
“SKI” + ACTIVE Lh. SEEKS TO CYLINDER 0. THE TEST THEN DOES A 
SEARCH 0 SECTOR AND IFIES THAT THE sone COMPLETES 
RTTHOUT E THIS TEST IS DONE ONCE IN 18 BIT FORMAT AND ONCE 


bt Dt Bae Gas Bee fee fee feos Bene fin Pmt Pat Been Bn Pe be Bs Bm fe Bae = em bs Bm Bo en Bn Bs fs Be Fe $2 Bs fm me ee hoo Bs fe Be Re pee Bs Pe 


psa tos eu Ca ae ES RESELL Ca pias w i bin wana! 
i. 
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1365 IN 16 BOT FORMAT. 


Sortie rather scent t titt icc PER ERRAR ROG Re & i 


Gs be Ras Fh fe Fh Pe hs Bm te es bh fe bo 0 ee ee Be pe Re ee 


SESE SLLL£L£ 
ee 
WOnNTUWCW--O 
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SEARCH OFF CYLINDER 
PURPOSE : 
T FY EXECUTION OF A SEARCH COMMAND WITH IMPLI 
eno MorYOn: = ORCUTT “ 


PROCEDURE : 


ore _CVESRON oh"Hne A EEEK Enno. “Tre PRoGRan THEN ExeQUTES afd 
BOLICLT SEEK 10 cH RO, O, FOLLOWED BY A 


SEARCH INVALID SECTOR 
PURPOSE : 
TO VERIFY THE DETECTION OF AN INVALID SECTOR ADDRESS DURING 
SEARCH OPERATION. 


PROCEDURE : 
THE DRIVE IS RECALIBRATED AND INITIALIZED ate iT. IS 


SG EIT Fort, ie pRocneh execuTes va Semon 10 Each Wal ii 
ac PeCrOR, te Ee A Ie 31 AND VERIFIES THAT. INVALID ADDRESS 


' 
SEARCH INVALID TRACK 
PURPOSE : 
TO VERIFY THE DETECTION OF AN INVALID TRACK ADDRESS DURING A 
OPERATION. 


PROCEDURE : 
THE Hes IS A SEEK” ERROR -. PRQGRAN EXE IF IT IS 


ee as ig ng 
x SS 0 AND VERIFIES THAT INVALID ADDRESS ERROR sets FOR 
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<= 
<= 
Ww 


SSECERIS RAS SEAaTa SEAS LoS 


za 
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SEARCH INVALID CYLINDER 
PURPOSE : 
TO VERIFY THE OS Tee Tian OF AN INVALID CYLINOER ADDRESS 
DURING A SEARCH OPERATION. 
PROCEDURE : 


CYLINNER pave. |S Reem Teed AIND PR od Fume it ait OFF 
Pe kee’ eAIVAL ED CYLINDER. appE ae VERIFIES THAT A NVALID 


IVC SEARCH TEST 
PURPOSE : 


TO VERIFY THAT INVALID COMMAND STATUS SETS WHEN VOLUME VALID 
IS INACTIVE DURING A SEARCH COMMAND. 


PROCEDURE : 


none, "RRTER HATCH THE TeSy EXECUTES A SEARCH COMPMND,, VERIFYING 


THAT’ “en STATUS SE 


ABORT SEARCH TEST 
PURPOSE : 


TO VERIFY THAT THE RMO3 INHIBITS A SEARCH WHEN AN ABORT 
CONDITION EXISTS AT THE START OF THE COMMAND. 


PROCEDURE : 


ecancit's TEST SETS AN IN THE ERROR REGISTER AND ISSUES A 
OMMAND, VERIFYING THAT “PIP” REMAINS INACTIVE. 


SEARCH AT OFFSET 


FUNCTIONAL TEST, PART 1 
29-JUL-77 13:33 
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PURPOSE : 
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SEQ 0043 








1488 


eo 
ess 
8 


-77 13: 


T, PART 1 


CO4 
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TO VERI-Y THAY OFFSET MODE DOES NOT CAUSE SEARCH ERRORS. 
PROCEDURE : 


THE TEST EXECUTES AN OFFSET COMMAND, THEN EXECUTES A SEARCH 
COMMAND , VERIFYING THAT THERE ARE NO ERRORS DURING THE SEARCH. 


SEQ 0044 


a 


wi 


bean bas fs ban few ft be st ee ee be me 


SOBRE Hoe SRLS 


b= Bb BB Bs me bt be ee be Rm hh ee ee Pee es ee be po 
MIWMUIUIUIU UU 
feat Os bs hs De bee be re pe he 
WONWU-L Wr 


SERCO NON TONeS 


SARRLGOHS SEER 
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;PROGRAM REVISION 8001 
-TITLE OZRNCA - RMOS FUNCTIONAL TEST, PART 1 


ie, Te 


% 

j HPROGRAM BY DOUG RIIKONEN 7 
#THIS PROGRAM WAS ING THE PDP-11 MAINDEC SYSMAC 
HEPACKAGE ORANOEe-11 Boone. ), JAN 19, 1977. 
Slt 

- SBT OPERATIONAL SWITCH SETTINGS 

is SWITCH USE 

ie 15 HALT ON rer 

3# 14 oop 

i 13 NHIBIT TYPEOUTS 
+ if INI rie Ooons oS 
it 1g LOOP 

si 8 Looe OF ERROR TN SHRC7:0> 
;# 128 

ie 6 TN64 

+ 5 TN32 4 

3% 4 TNI6 

3% 3 TNS 

3% 2 TNY 

3% 1 TNe 

°% TN1 


0 
"SBTTL BASIC DEFINITIONS 
j#INITIAL AOORESS OF THE STACK POINTER ### 1100 #%# 


STACK= 
-EQUIV , ERROR ;BASIC DEFINITION OF ERROR CALL 
“EQUIV IOT’SCOPE BASIC DEFINITION OF SCOPE CALL 


;#MISCELLANEOUS DEFINITIONS 


fiT= il 35 CODE FOR HORIZONTAL TAB 

LF= 12 3 FOR LINE FEED 

CR= 15 He FOR CARRIAGE RETURN 

CRLF= 200 HE FOR CARR TURN-LINE FEED 
PS= 177776 33 STA Woke 

-EQUIV PS. PSW 

STKLMT= 177774 ;;STACK LIMIT REG TER 

PIRG= 177772 He I QUEST REGISTER 
DSWR= 177570 He SWITCH REGISTER 

DDISP= 177570 : HARDWARE DISPLAY REGISTER 
:#GENERAL PURPOSE REGISTER DEFINITIONS 

RO= 70 > :GENERAL REGISTER 

Riz %1 *:GENERAL REGISTER 


Re= we ;;GENERAL REGISTER 


E04 


SO 0° ESTO TR PRT ET QOH PTZ? Tee ce 10 


SEQ 0046 





| wee 


Se ReREEEEE 
e 
bh 


99 
iB 
99 
9° 
99 
i 
STER” SWITCH DEFINITIONS 


RAAT 


asramne "EERBeatc:,. SEN 2 eoeereEee 
araaces UbbbEDDS COGSSSRiS Gees damaiaaaasd Sooo 


VQRVLKLY 


TA BIT DEFINITIONS (BITOO TO BIT1S) 






pw 


SRR ADA ANI S IOP NCE Ph PPS aN SERS BERENS MRE RES SUES 


a a a a dh a ad dd a a a ad ad ad dd ad ad ad ed ad td ttt 





SEQ 0047 
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Pereeeecece 


8 4 4 0 0-4 0-4 4 04 0 


PPB eee ees 


Su SussieerEPEPEEre 


~ 


T) ##SCOPE## 


— 


AND TLLEGAL INSTRUCTIONS 
TRAP 
TRAP ( 


TRAP 
;;1TY KEYBOARD VECTOR 


POWER al 
; ;EMULATOR (EMT) ##ERROR## 


tere FH 
tT INPUT 


,#BASIC “CPU” TRAP VECTOR ADDRESSES 


S727 RLREZ 
ner pee 
seit 

BERSGEE SES 


epeceasseees 


-SBTTL RMO3 REGISTER BIT DEFINITIONS 


;RMCS1 CONTROL STATUS REGISTER 


AVAILABLE-READ ONLY 
ON CODE 
a Re 
PRETURN TO CENTERLINE COMMAND 
PREAD IN PRESET COMMAND 


;FUNCTION CODES (BITS 01-0S OF RMCS1) 


ceeoeees & Beeeecess 

unnunnniwwn oe te te tee ee 
yy Oy 

Srouret © Buibestes 


EEesscee | ESSesGee: 


ri eerrrrr eNO Nhe NY Mb ew ire eM irr ree eee meeC Net: 


a dd a ad ad a ad a dk a a ad dd ad kak ad ak ad ak a a a a a ad ad ad ad ad ad ad a a nd ad ond ad dd dd 


GO4 


BCR PL Soe ses} Raas meSisHen arr GerInItions 


SEQ 0048 


TA COMMAND 
i allel 
Ss 


Laces 

a ae a 
Le 
. ta] 


SS 
y pee Eigse; «ge 4 PRapcesees 


UME VALID 
!OFFSET MODE ACTIVE 





=S68488s8 Sz NASE88388 
Saar RRR RRR Rr eee 
Dd Ot Ot tt te ht ht se 

Ono onmnoaMmMmm 


ir} 
# 
oR 
é feoTeelecleslesToslestes) 
a 
a 


a: 
& 
E 


eg a 


TADMSK = 
SADMSK = 


ES seeeaaets goo osttes ts E gvssReo9 Sard ches 43 





ee: 


BE e eee eee ee eer eR eRERRRESER RENE 


a dd ed dH et ey eh ed nd eed gd es Rd md a ed ed ad gd a eg dd 





i 
1e7e 
1677 
ier 
te 7 


[EREGH=SRELRTIORE SION RS 


a 


bb Ob 0 0 0 0 0 0 0 bb 2 0 bt 
he 


NIISELERIT RASS 


04 
MACY (1046) “77 1%: PAGE 
ROS REGISTER BIT DEFINIT! ~ = mobi 
;RMER1 ERROR REGISTER 81 


BIT1S ;DATA CHECK ERROR 
ste $ 


ITO6 ; ERROR 
ITOS ;WR FAILURE 
ITO4 3F 

IT03 spony 

ine ;REG My) tS dene REFUSED 
1700 STLLEGAL FUNCTION 

TMSK = DOCK! DTE! WLE! AOE! HCRC!HCE!ECH! WCF SFER 

;"NDTMSK” IS USED TO MASK ERROR REGISTER 1 DURING NON - DATA 

; , 1.E., HOUSEKEEPING AND POSITIONING COMMANDS 


;RMAS ATTENTION SUMMARY REGISTER 


@ eEFEIOSAGRAESRAE 





ATNMSK = 377 sMASK FOR ATTENTION BITS 
sRMLA LOOK AHEAD REGISTER 

scH ss BITIO sSECTOR COUNT = 16 
en ee 

SCI = Seti : RIOR SOUNT = 2 
ScOOti«é= BITO6 ‘SECTOR COUNT = I 

SCTMSK = 003700 sSECTOR COUNT MASK 


;RMMR MAINTENANCE REGISTER 


; WRITE ONLY BITS 
100000 DBCK = BITIS ;DEBUG CLOCK 
DBEN = BIT14 ;DEBUG CLOCK ENABLE 
D20000 DEBL = BIT13 4} Pe 28 a OF BLOCK 
010000 DTO = BITle ;DIAGNOSTIC TIMEOUT 
MCLK = BIT11 ;MAINTENANCE CLOCK 
MRD = BIT10 ta DATA 
001000 MUR = BITO9 ;UNIT READY 
DO040C MOC = BITO8 3; ON NDER 
DO0200 MSER = BITO7 ; SEEK 
000100 MDF = BITO6 ;DRIVE FAULT 
000040 MS = BITOS ; SECTOR PULSE 
000010 MP = BITO3 ;WRITE PROTECT 
MI = BITOe ; INDEX PULSE 
MSC = BITO1 ; SECTOR 
000001 DMD = BITOO ;DIAGNOSTIC MODE 


a 


Oe Bt a hs a ns be ee = be be Be fs bd fe be he tee 


Sse et Recent Cte SSR RRR 


WONOULWM--O 


Oe ee oe oe ee re oe oe 


ee ee ee ee ee ee Be te ee ee ee en Be be be Be Pe ne ee ee 


SRRSRes 


O04 
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29-JUL-77 13:33 REGISTER BIT DEFINITIONS 
: READ ONLY BITS 
occ = BITIS ; OCCUPIED 
RG a eIT14 *RUN AND co 
= . 
fee Bitig : 18h 
ESRC = ITl1 : SEARCH 
PLFS = BITIO LOOKING FOR SYNC 
ECRC = BITOS : CRC OUT 
000400 PDA = BITOS *DATA AREA 
900200 PHA = BIT0? : AREA 
1 CONT = IT06 : NUE 
000040 wc = B1T0S : CLOCK 
go0029 EECC = BITO4 : ECC OUT 
00001 MD = BITO3 ‘WRITE DATA BIT 
veer 1 Be Bt ToL Ae EE TOR AND TRACK 
iced Bye. Bt TBA th RGNOS TIC MODE 
;RMDT  ORIVE TYPE REGISTER 
: T : SSED=0 
Ag8888 . eee BiTt8 RT SBa TOE SOBRE 
MOH = BIT13 “MOVING HEAD = 1 
004000 DRQ = BIT11 DRIVE REQUEST REQUIRED 
T = , T T 
B50 ps4 PRT aeqge4 BU Bor? DRIVE TYPE 
sRMOF OFFSET REGISTER ¥ 
9190000 FMT16 «= BIT12 ; ig er FORMAT 
ECI 5 BIT1I ‘ECC INHIBI 
002000 HCI = BITIO : INHIBIT 
000200 OFD = BITO7 : OFFSET F 
-RMDC DESIRED CYLINDER ADORESS REGISTER 
001777 EYLMSK = 1777 MASK FOR CYLINDER ADDRESS 
sRMMR2 MAINTENANCE REGISTER #2 
READ ONLY BITS 
100000 ROA = BITIS ;PORT A REQUEST 
040000 2 BIT14 PORT B REQUEST 
020000 AG = BITI3 : TAG 
01 TST z BIT1e COMMAND SEQUENCE TEST BIT 
. BIT11 CONTROL OR CYLINDER TAG 
CH = BITIO ‘CONTROL OR HEAD TAG 
1 B809 «i= BITO9 ‘TAG 
BB08 = BITOS ‘TAG BUS 
BBO7 ss BITO7 ‘TAG BUS 
1 BBO == BITOS ‘TAG BUS 
000040 BBOS = BITOS ‘TAG BUS 
000020 BB04 ss BITOY ‘TAG BUS 


SEQ 0051 


pL ye PAGE 48 


IT DEFINITI 


, PART 1 


FUNCTIONAL TEST 
29-JUL-77 13:33 


; oo 
PEE EEE EEEEEEE 


Pa a ine 


;MANUFACTURING DETECTED SECTOR ERROR 





USER DETECTED SECTOR ERROR 
CONTROL STATUS REGISTER 
*MA a 
a 
Pua 
TER 
;MASK FOR REGISTER INDEX NUMBER 


g 
atatetes Sssera= ; 
aaam Macaca SELAANUURMMOASS TSO SSDSRRRR RK 
| : “uu 
- 
a 


oe hers 


scbestoppesPinyccessncees 


>< 
wr fs 
a 
are 
om + 
o 
w 
— 
- 
- 
R 


;RMER2 ERROR REGISTER 2 


RMCS1 
IDXMSK 





eee oe: 


Mebitiieiiieep ee eee eee cue Meee PTET PASS CTT 


GQ 9 G2 G9 G9 G} G9 GB Gd Gd.9 > Gd Gp Bo Gd Bo Bp db Go Gp G3 Ge > Go Gh Go 9 a 6 Go & O GO 9 Ob Gh Oo M GD & oo ao cd op a Go cp co a9 G9 GD G9 Go Go .Gd 





CONTROL BUS PARITY 


Fereeren Peet REO ONLY 


KO4 
) 29-JUL-77 14: 49 
REGISTER BIT per intirions 
.-SBTTL RH CONTROLLER REGISTER BIT DEFINITIONS 
sRMCS1 CONTROL STATUS REGISTER #1 
sRMCS2 RH CONTROL STATUS REGISTER #2 


MACY11 30(1 
RH 


» PART 1 


Ue UL 


29-JUL-77 13:33 


DZRMCA - RMOS FUNCTIONAL TEST 


DZRMCA.P11 





;DATA LATE-READ ONLY 


wrmou-O 
od ed dh 
lt col eel ok eel eee eo 
Ot 4 OO 
PeeTesTeslesTesleslesles] 


Sueebees 


Seescs 


pA os 





es 
35 So 
ee eo 
way § Eon 
- oe 
= Epexxptnees. Elam 
y Even bee ee 
= obec BGS : 
g pecivsmcreety Gace 
Oo 
2 % 
8 2 
= # 
fafatatatatatatat stata 


Ef Reever 


5 


yg ze bcbpida S00en esf; 


TEE: Ee: 


O-UMTNwr wo 
at nk ak ad ht I I 
COLES SKKs 


SRR Roce. 


a dd hd hd dd ad hh dd dd Ht 


= bb ee 


ab bea a EE a 


pe Pe fo Be be f= he 


SeCEReER 
BOGS 


fa Be Pan hs fee Pan Pee bn bos eb fen B= Pan ps Pe Bene bene Ben Ps pe Ps be Bs Pe Be ee ee pe pe 


PRPRR BCE URRT ERE aad Vola sans 


FUL ed * —— 
RMDB ;DATA BUFFER 


: : 5 se rere rie RCEISTER 43 
128284 avec. = 12Boe4 UNIBUS VECTOR ADDRESS AND PRIORITY 


-SBTTL TRAP CATCHER 





000000 20 
;#ALL LOCATIONS FROM 4 - 4 ape BySONTAIN A ".42,HALT™ 
H 0 CATCH I NTERRUPTS 
ie aL TON 9. CONTAINS o CATCH IMPROPERLY LOADED VECTORS 
DISPREG: .WORD 0 ;;SOFTWARE DISPLAY REGISTER 
000000 SWREG:  .WORD O :: SOFTWARE SWITCH REGISTER 
.SBTTL ACT11 HOOKS 
H g SY yee 
000200 hos sae ;SAVE PC 
oS oan O34 ;;1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
oo00s2 seme 
000000 ;WORD O ;2)SET LOC.S2 TO ZERO 
000200 . =SSVPC 3; RESTORE PC 
.SBTTL STARTING ADDRESS 
;THE PROGRAM STARTS AT LOCATION 200 
Bo reg 005322 : IMP START ; JUMP TO START OF PROGRAM 
001100 21100 


-SBTTL APT PARAMETER BLOCK 


: SEE EEE AE EE aE 
eT toca LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
» SERREEE RERERERE REPEL EKAE 


KELEELESSRSERE SAS RLELSESKLEL EES KASRRSZSRREE 
poi so0 rs eee eRe MAI ’TO POINT TO START OF PROGRAM » 
need 308 tiFOR OP eraat UP 
0000 4 Hr 
ny 


.=44 ;POINT TO APT INDIRECT ADDRESS PNTR. 
001100 SAPTHOR ;;POINT TO APT HEADER BLOCK 
001100 =. $X ;RESET LOCATION COUNTER 
: SETUP APT PARA JHMM HHGHHHHHHHHHHHHHHHHHHHHEHHUHBHHEHHEHHEE Ete 
;SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
; INTERFACE SPEC. 
1108 $ 
1100 000000 I8TS: .WORD 0 ;;1WO HIGH BITS OF 18 BIT MAILBOX ADOR 
1102 O0leee “oe SMAIL ;;ADDRESS OF APT MAILBOX (BITS 0-15) 
001104 000001 STSTM: .WORD 1 ;;RUN TIM OF LONGEST TEST 


MO4 


DZRNCA - RMO3 FUNCTIONAL TEST, PART 1 MACY11 30(104%6) 29-JUL-77 14:32 PAGE Sl SEQ 00S4 
OZRM” 11 = 29-JUL-77 13:33 APT shaban i 
1997 001106 000002 ME IN SECS. PASS ON 1 UNIT (QUICK VERIFY) 


138 BILD Sa HS Ferme AED a Ea Pe 8 OEIC. 


111 


NOY 
DZRNCA - (fro 1 Cpe TEST, PART 1 MACY11 30(104%6) 29-JUL-77 14:32 PAGE Se SEQ 00SS 
OZRNCA.P 29-JUL-77 13:33° COMMON TAGS 


Hh ciehehebeladdehal lel dchelelshelelebalelelalehelelelelelelelehelelalebabsbebejedeielelebededeideleisinieiaisieisisialaiaiel 
jATHIS Tree AINS VARIOUS COMMON STORAGE LOCATIONS 
; IN ; 













OT ass: SCNTAG: © ;;START OF COMMON TAGS 

lite at STSTNM: ne courant THE TEST NUMBER 

Bit a Heth POSS 

ng Se + re ee 

Sit ae ie atte Ee sy fae Tigrmucrzo 
: 2) Baa 

: 12) eee es 

at : -BYTE ? tS ONTERRUPT. MODE INDI ICATOR 

‘ + RD BBigP t ADDRES OF Bigruay neaisteR 

Bt tee i ue ATUS REG. 

a i, 3 CONTA oo 
BI c ; o° Hi a FLAG (BIT <hr) 20-YES) 
nes: . Emax, OF ITERATIONS 

i BR -esche cquncarmcarn 1 Se Ea 

1 ee es ‘iN FEEDS 





Bo1322 00000 gait, wor rwscry jressnae TYPE. cove 


000000 SPATAL: “WORD ARIAL {PATAL ERROR NUMBER 





wi 
— 
“A 


eee ee eee 


NPPEUZIOORED 


BR 


ERASE 


— 
be 


SEPRUEE RRR EL Ea 
PERENSISURERREND 2 


— 
A’, 


oO 
— 
CI CIC) 
aaa 
£rvo 


PD me Bae Beet fren es Pt bee ee ht Pe Gee pe Ps ee be et Ps Go he pe fe Pe 


SESS Una eRe 
panies 


ee ee ee eo ee oe a oo oe 


bo em be 
MeO 


BOS 
(1096), Fe sU.-77 14:32 PAGE 53 SEQ 0056 
pls Uy ;;TEST NUMBER 


ral 


- 


Z 
3 
ia 
a 


ees Bas | 





ane 

SEE 
os 
F 


eee 


-% BtTs 15-11: 
is it 1, B1/O5e02, 1420-03, 11/4004, 11/45=05 
* i T1 IME. ‘ 
+ Bt TING POTAT PROCESSOR 
ty BIT MANAGEMENT 
oO Srewss BYE «oO BRTVEL tinea Gye rerkei 
is , HEM. TYPE =- (HIGH BYTE) 
te 00 
g af 


, 


seek 


; ;HIGH eT + 





ooocco WORD  AMADRI 

000 BYTE AMAMS2 ;; 

000 BYTE ii 
a s = | 
oot i 

600 fervey "pele 
ea Ree: tes een Mer serene suit 
ia sore -HORD Aerse $3 OF E UNDER TEST 
900000 SCOMI: ’ 1 ; DESCRIPTION WORDS! 
000000 SOOWO: ‘ieee feos t FCCRIPTOR WORDEO 

bis ee 8 
p08 SOOM: -HORD —AODWH Fj RIPTOR WoRDaS 
000000 SDDWG: <:WORD ADDWS ;; SRIPTOR WORDSE 
00000 SOOM? WORD ADDW? ;; IPTOR WORD87 
-MEXIT 


; THE REGISTER INPUT BUFFER IS USED FOR 
STORING DRIVE STATUS 


T 


Ri 
gs 





Bawa. eeu gras 


2113 
cis oniaes gunn 
cig Giise om 


rururororerururcroru 
bm bt bs at bs ft he Pe be be bee 
pe ++ + 





trururororurorororururururoru 
eh ee ee 





38 
39 
40 
4 
f 001376 
1 Bie 
145 001404 
1 1 
14 141 
148 00141 
1 1414 
1 14 
1 1 
se 
154 oot 
1 14, 
1 14 
1 14 
iB ot 
ie BS 
1444 
162 
2163 
se 
ig 
sie? 001446 le 
168 


SEQ 0057 


COS 
ACYL 90 10¥6) | BO~JUL-77 14:32 PAGE SH 


gg INPUT BUFFER 


O80 
ee ee ce 


a 
S555 55505 550085 


oo om 
ee 


cee 








Pa WORD : 
RMERSI: .WORD : 
ect - WORD ;ECC TION REGI 
RMEC2I: .WORD “ECC PA REGIS 
;THE REGISTER OUTPUT BUFFER IS USED FOR 
ASSEMBLING DATA GOING TO REGISTER 
PUTBUF : 
“REGISTER OUTPUT BUFFER 
RMCS10: .WORD ;CONTROL, STATUS REGISTER 
amano: “ORD i BUSeR ORE SS S 
RMDAO: .WORD *DISK ADORESS REGISTER 
a5 ig ee ‘re 
RMER1O: . WORD ;ERROR ; i 
RNAS: -HORD *ATTENTIC PRY REGISTER 

:: iLOOK GISTER 
RMOBO: . WORD DATA E 
RUPARLO: . WORD * MAINTENANC REGISTER al 

: “WORD ERIE NoPE GISTER 
RMOFO: . WORD : om 
mes “ES Guay Geltee SEITE 
RMMRO: |. WORD > MAI ne 82 
PRECIO: : H Bn Be I 
RMEC2O: eric - &e REGIS 
sEACH WORD OF THE TEST QUE CONTAINS THE DEVICE NUMBER IN 
THE LOW BYTE AND THE ATTENTION BIT IN THE HIGH BYTE. A ZERO 
WORD IS A BLANK AND REPRESENTS END OF THE QUE. 
TSTQUE: .BLKW 10. TEST QUE 





33 





Pt Bane bee hee Be hs Ps a dP Fo he me ee Pe pe be ee Be ee 


rorurorurororu fororurorururoru forurururoru ror 


SBBBIRRIBR=BBaNotadz 


I, Ud 14:32 PAGE SS 


;MEDIA ENABLE IS SET IF THE BAD SECTOR FILES HAVE BEEN RECOVERED 
;FOR THE UNIT UNDER Test, OneRe T IS ZERO. 


MEDENS: . WORD ;MEDI 
eres of. i CYLINOER, TRACK AND SECTOR 
SPSSIGHED TRACK, AND_SECTOR 
SKVCT: “WORD VECTOR OF Kit Gcock 
THe INDEX T CONTAINS A BYTE LIST OF REGI WHICH 
eerie git, SUBROUTINE. THE LIST IS TERMINATED BY 
GETINX: . 23. GET INDEX TABLE 
BE AT RSCG, RAPS es ELS TERA 
°A NEGATIVE : ‘ 

INX: . \ PUT INDEX TABLE 


;PUT TAGS HERE 


- RMO3 TIONAL TEST, PART 1 
Pil -77 13633" 


rurorurororuroru 
a ar 
BBSKRLSS 


Rassias 
8 
4 


paeyat poraten’y pur le PAGE S6 SE@ 0059 
-SBTTL ERROR POINTER TABLE 

LesHta ES, NER DATED ade TE He fe rome 

ST: GRIER HH GORE MTAR'S Poe Bien vs rows 


at ssBSINTS 10 ite Bath HeROER 
;# DT 3;POINTS TO DATA 

3# OF ;;POINTS TO THE DATA FORMAT 
SERRTB: 


—_— 
8888 


+ 


terete 
coo 


ens bee be 


Seek 8 BRR 


EhoR Bais 


bb be 


VRS 99 


: 
a 
ia 

: 


MACY11 30(1046) 29-JUL-77 14:32 PAGE S7 0060 
ERROR POINTER TABLE om 


; ERROR bet WRONG UNIT SELECTED 
1 





;ERROR e DEVICE WENT UNAVAILABLE 
067532 ene 
fe Bi 
1 
;ERROR 3 DEVICE WENT NONEXISTENT 
067540 EMT3 
EHT1 
poTt 
Tl 
;ERROR 4 CONTROLLER NOT READY 
7546 EMT4Y 
3620 EHT1 
073744 EDT1 
074034 EFT1 
;ERROR S DRIVE NOT READY AND GO NOT RESET 
067554 EMTS 
073620 EHT1 
eke a 
EFT1 
;ERROR 6 UNEXPECTED VALUE FOR “ATA” STATUS 
067562 EMT6 
3620 EHT1 
3744 EDT! 
EFT1 
; ERROR at? BUS TIMEOUT TRYING TO READ OR WRITE REGISTER 
0 
0 
0 
;ERROR 10 DRIVE NOT READY BUT GO IS RESET 
ee an 
073744 
074034 EFT1 


FUNCTIONAL TEST, PART 1 
13:33 


SRER 8 Salad 


Pe 


— ee 
NNN 
os 
io .£T 


B82! 





eu gets 8 sen ses 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


: 


SEEEEES 


MACY11 30(1046) 29-JUL-77 14:32 PAGE SB SEQ 
ERROR POINTER TABLE a 


; ERROR 


GO NOT RESET BUT DRIVE IS READY 


INCORRECT FUNCTION CODE 


PARITY ERROR READING REMOTE REGISTERS 


TRANSFER ERROR IS INCORRECT 


INCORRECT WORD COUNT 


INCORRECT BUS ADDRESS 


INCORRECT LBT STATUS 


INCORRECT AOE 


SEQ 0062 


HOS 
JUL-77 14:32 PAGE 59 


INCORRECT CYLINDER ADDRESS 


a 
— 
Qa 
— 
! 
wm 


e anne NGoos hoes thoes Meoes <baeh Resa Seok 


INCORRECT WLE STATUS 
INCORRECT UPE STATUS 
INCORRECT WCF STATUS 
INCORRECT WCE STATUS 
INCORRECT MOPE STATUS 
INCORRECT DCK STATUS 





I05 


SEQ 0063 


2 

S 
2 3 
a a a e 2 2 a 
x § 8 8 Og aia? 
= % 2 2 i 3 
ip oi 
ty 2 Z 2 : : : 3 


a oo = sa Baan 
Sah 5aa5 S585 Bases e5aa5 


i 
~™ 


; ERROR DLT SHOULD NOT BE SET 
EnT32 


MACY11 30( 1046 
ERROR POINTER 
sERROR 31 
2nT31 
EHT1 
EDT! 
Tl 


» PART 1 


RMO3 FUNCTIONAL TEST 
29-JUL-77 13:33 

067772 
073620 
073744 
074034 
070002 
073620 
arias 
8 
ee 
070032 
073620 
o74as4 
070042 

S bee 
074034 
079680 
073744 
074034 
070062 
esa 
074034 





OT L 


_— 





073744 
D022S0 074034 





BaRRSRREB IS SABA 8S 


; ERROR 


; ERROR 


29-JUL-77 14:32 PAGE 61 
ABLE 


LOST “MOL” DURING PACK ACKNOWLEDGE 


UNSAFE ERROR DURING PACK ACKNOWLEDGE 


“OPI” ERROR DURING PACK ACKNOWLEDGE 


“RMR” ERROR DURING PACK ACKNOWLEDGE 


“ILR” ERROR DURING PACK ACKNOWLEDGE 


“ILF” ERROR DURING PACK ACKNOWLEDGE 


COMPOSITE ERROR STATUS IS INCORRECT 


PARITY ERROR WRITING REMOTE REGISTERS 


SE@ 0064 


KOS 


29-JUL-77 14:32 PAGE 62 


MACY11 30( 1046) 
ERROR POINTER TABLE 


» PART 1 


RMOS FUNCTIONAL TEST 
29-JUL-77 13:33 


Pil 


INCORRECT IAE STATUS DURING SEEK COMMAND 


51 


2 
; 
- 
: 
my 
: 
z 
3 
i 
S 
ESEE SEE 


ese = 


IS ON LINE, ASSUME 





SEEK INCOMPLETE ERROR DURING SEEK COMMAND 


Soh ae 


Be = 
_ ee eS 


Lapeh bhi 
tt 


DEVICE CHECK DURING SEEK COMMAND 


J 


HOO 


1s 


Brot 


PIP IS STILL SET AFTER SEEK - SKI IS RESET 


56 
EMTS6 


2 
2 
tH 
3 
S 
= 
=< 
an of 


os 


Be ES 





MACY11 30( oe ae 14:32 PAGE 63 SEQ 0066 


;ERROR 61 ERRONEOUS IVC ERROR DURING SEEK COMMAND - 
; VOLUME VALID IS STIL SET 


ao os 
dest beep 
— 





: 
se3g 6 


REPORTED DURING SEEK COMMAND 


444 


an Ss 
bal, 


;ERROR 64 DRIVE DID NOT DETECT “IVC™ ERROR DURING SEEK 


—— 
=r 


; ERROR BF 6s DRIVE EXECUTED A SEEK WITH ERROR SET 


;ERROR 66 UNEXPECTED ERROR SET IN RMER1 


;ERROR 67 UNEXPECTED ERROR SET IN RMER2 


;ERROR 70 ERRONEOUS “IAE” ERROR DURING RECALIBRATE 


pores Tec SEAM PAMRes oe eis cat 





2 on i oe 





poe - RMO3 vio TEs PART 1 MACY11 30(1046 JUL-77 14:32 PAGE 64 SEQ 0067 


Pil 


g 
38 


qa fe fe Ge Ge Ge ay: 





9602 02460 
Pr 
: ERROR 71 “ILF” ERROR DURING RECALIBRATE 
ee an 
OE Tl 
: EFTI 
5 | 
ie sERROR 72 “OPI” ERROR DURING RECALIBRATE DUE TO “MOL” = 0 
1 72 EMT72 
14 74 EHT1 
15 EDTI 
1g EFTI 
{ 
1g ERROR 73 “OPI” ERROR DURING RECALIBRATE BECAUSE ON 
: CYLINDER DIDNT DROP 
ENT? 
EBT 
1 EFTI 
“ s ERROR 4 "IVC" ERROR DURING RECALIBRATE - “VV" = 0 
19 


;ERROR 75 ERRONEOUS “IVC” ERROR DURING RECALIBRATE - “VV” = 1 


;ERROR 76 “SKI” ERROR DURING RECALIBRATE 


;ERROR 77 “DVC” OCCURRED DURING RECALIBRATE 





;ERROR 100 LOST “MOL” DURING RECALIBRATE - “OPI” = 0 





: 
5 
r 
" 
5 







29-JUL-77 13:33 


ps 


1: Ge Ge fe & 


FUNCTIONAL TEST, PART 1 


MACY11 30(1046) 
ERROR 


29-JUL-77 14:32 PAGE 65 


POINTER TABLE 


; ERROR 


EHT! 
EFT 


qasa5 
= 


Rae fee fans ee 


mri 

agsss 
pee Tes 
5 


soaa8 
8 


asa 


BEERS 


BEET 

4-4 R 

bs pe 
z 


BEES 
nae 


1 


a5 


110 


LOST “VV" DURING RECALIBRATE - “IVC” = 0 


“ATA” DID NOT SET DURING RECALIBRATE 


“OM” DID NOT RESET DURING RECALIBRATE 


“PIP” IS STIL SET AFTER RECALIBRATE 


UNEXPECTED “ILR” ERROR DURING RECALIBRATE 


UNEXPECTED “RMR” ERROR DURING RECALIBRATE 


“UNS” ERROR DURING RECALIBRATE - AC POWER IS LOW 


CANNOT ACCESS MASSBUS CONTROLLER VIA UNIBUS 


SEQ 0069 


- 
E g 
y ¢ : S 
~ eee Bs 
mor 5 5 5 
bce Bee eae § 
ee eon eee 
293 stm ses 3 
ee 
* Eee te Bota | 
& 
bs 
35 


mx Ge Ee EE 
ci Ge me 


DEVICE NOT AN RMO3 


a 


RMCS1 NOT INITIALIZED BY UNIBUS 


B35 


585 


g a 

z ES 

= Fa 

g R 

3 z 

= Z 

5 S 
= 2 % 
Erot SEES ‘SESas 


pe & 


101 


Poe oe 


| a] Go oe ge 
a3 RS NSE SUS USS SUSE MUMS UG UC Aa Aa aCe AAU U SCAU CUCU 


RMER1 NOT INITIALIZED BY UNIBUS 


;ERROR 120 
EMT 120 


3 
3 
S) 


CO6 


SSL TE: PT RU IBM aEP Pew 
owen 
cen 
— 
— 
— 
owen 
owen 
00m 0 


SEQ 0070 


RMAS NOT INITIALIZED BY UNIBUS 
RMMR1 NOT INITIALIZED BY UNIBUS 


RMDS NOT INITIALIZED BY UNIBUS 
RMCS1 NOT CLEARED BY CONTROLLER CLEAR 


RMEC2 NOT INITIALIZED BY UNIBUS 
RMMR2 NOT INITIALIZED BY UNIBUS 
RMBA NOT CLEARED BY CONTROLLER CLEAR 
RMCS2 NOT CLEARED BY CONTROLLER CLEAR 


wd ost eh oad aed to eee IN tt ad oot oe a _ eae, 


sas Shseh Sse Sse Shsah Skah “kaah Sssab 


EMT130 


073620 
aaa 
cS 
cS 
i. 
ES 
1: 
ae 
073650 
orcas 





DO6 
JUL-77 14:32 PAGE 68 


SE@ 0071 


RMER1 NOT CLEARED BY CONTROLLER CLEAR 
RMAS NOT CLEARED BY CONTROLLER CLEAR 
RMMR1 NOT CLEARED BY CONTROLLER CLEAR 
RMEC2 NOT CLEARED BY CONTROLLER CLEAR 
RMMR2 NOT CLEARED BY CONTROLLER CLEAR 


RMOS NOT CLEARED BY CONTROLLER CLEAR 
RMCS1 NOT CLEARED BY ERROR CLEAR 
RMCS2 NOT CLEARED BY ERROR CLEAR 


_ Bice _ BRE Sto “tt 


F 3 a Dai: 
Se SGE SESS SEESE SEEGE GEESE ESEE 4EEEE SESE 


EMT140 


macy 
; ERROR 
ERROR 
; ERROR 
ERROR 
ERROR 
ERROR 
ERROR 140 


» PART 1 


FUNCTIONAL TEST 

29-JUL-77 13:33 
ee 
074034 
071160 








CUCL tify » w ty i 
eh eh gh phot gtly MM Mene 
DD 6B 63 60 od 60 Vh.yt yt. yt yt. 


§ 
SF 
on 
a 

z 


pavat paratenet pur tee PAGE 69 SEQ 0072 
1 





OOS 4 073620 EHT 
003156 073744 EDT! 
003160 074034 EFT 
;ERROR 14 RMCS1 NOT CLEARED BY DRIVE CLEAR 
Sais es "Bt 
166 073744 EDT! 
003170 074034 EFT 


;ERROR 142 RMOS NOT CLEARED BY DRIVE CLEAR 







ie 
re 
8 
_ 
3 
% 


ar 






Oboe 


Be 


;ERROR 143 RMER1 NOT CLEARED BY DRIVE CLEAR 


1 OOsede 071302 EMT143 
EHT1 
EDTt 
Tl 
;ERROR 144 RMAS NOT CLEARED BY DRIVE CLEAR 
071312 EMT144 


; ERROR ent RMMR1 NOT CLEARED BY DRIVE CLEAR 
;ERROR 146 RMMR2 NOT CLEARED BY DRIVE CLEAR 


;ERROR 147 RMER2 NOT CLEARED BY DRIVE CLEAR 


Gh 8 Oh 


; ERROR 





peers ic ny a ee 


= RMEC2 NOT CLEARED BY DRIVE CLEAR 


S 
i 
me 


FO6 


SEQ 0073 


tf 
n z : : 
3 " 2 . 3 
e idee es Bias Ee Bec § 
i ty & 3 
p 5 wl s 5 “ t 
' z z 7 e 2 5 
: 5 3 : : Z S 8 : 
= y i " 5 tA 7 
oe ee BO ee Ree gee E J : 
25 ee = a Bo a Bo Ro — — 
aS oa 85a Scat Besa S&aes Basa Bese esaa SE 
“Pa Ba el Wd Ge Pe bd ed 





FUNCTIONAL TEST 

29-JUL-77 13:33 
074034 
074034 
071374 
073744 
074034 
071406 
oe 
ag. 
073744 
074034 
1466 
Dos Graces 
074034 





vy Hy 


GO6 


JUL-77 14:32 PAGE 71 SEQ 0074 


RMDA NOT RESET BY RIP COMMAND 


RMDC NOT RESET BY RIP COMMAND 


DATA WAS ECC CORRECTED BUT DOES NOT COMPARE WITH 
WRITE BUFFER 


OPI SHOULD NOT BE SET 


IVC SHOULD NOT BE SET 


IAE SHOULD NOT BE SET 





;ERROR 167 NEM SHOULD NOT BE SET 


;ERROR 170 UNUSED 


se eee 99 


RMOS FUNCTIONAL TEST, PART 1 
1 = 29-JUL-77 13:33 


wi 
ro 





cn En Ga Ga 





MACY11 30(1046) 29-JUL-77 14:32 PAGE 72 
ERROR POINTER TABLE 


oo0o00 


;ERROR 17 “ATA” NOT SET DURING RETURN TO CENTERLINE 
“ATA” NOT SET BY OFFSET COMMAND 


; ERROR 


RMER2 NOT INITIALIZED BY UNIBUS INIT 


233 
ee 


RMER2 NOT INITIALIZED BY CONTROLLER CLEAR 


so232 
2 


; ERROR SELECTED DEVICE IS IN WRITE PROTECT 


gceee 
a 


CANNOT SET DIAGNOSTIC MODE 


BEE 
3 


; ERROR INCORRECT “MOL” STATUS DURING DIAGNOSTIC MODE 


creee 
y 


INCORRECT “PIP” STATUS DURING DIAGNOSTIC MODE 


i 
: 


SEQ 0075 


ae er oe 


BooVon sons SSSVER 


i 8h 8 85 8: & 


hh bd be he be hb BP a be he 


IOI) G) GI GI GIG) GIG) GI GI GI GIG) GC) GIGI GIGI) GI) GIG) 
2oR~ 


post hs fe pe 


SSSVERLON-ESSIFHESH=ASSBLKRKPERLSBBVRM 


Be eh be te Rs Bn a ee Be Be Bt ae ee ee hs Be he ee os De fee bee ee Be Pe Be 


GD I GIGI GIG) GI GI) GIG) GI) GI GIG) GIG) GI) GI) GI) GI) GIGI GI GI GI GI GIGI GI GI GIG) 


Ty eee Sy asad" PART 1 BRROR POINTER TABLE ur? Wee ne SEQ 0076 


071674 EMTe00 


; ERROR gOt INCORRECT “WRL” STATUS DURING DIAGNOSTIC MODE 
201 
;ERROR 202 INCORRECT “SKI” STATUS DURING DIAGNOSTIC MODE 


;ERROR 203 INCORRECT “DVC” STATUS DURING DIAGNOSTIC MODE 





;ERROR 204 “VV" WAS NOT RESET BY MAINTENANCE UNIT READY 
le aren 
14 Tl 
16 EDT! 
EFT1 
;ERROR 205 SELECTED DEVICE HAS A PERSISTENT “SKI” ERROR 
003622 EMTe0S 


;ERROR 206 “LBC” DID NOT SET DURING DIAGNOSTIC MODE 


;ERROR 207 UNEXPECTED LOSS OF “MOL” - MEDIUM IS OFF LINE 


;ERROR 210 UNEXPECTED LOSS OF VOLUME VALID - “VV” = 0 





JO6 
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TABLE 


: 


a8 
33 


‘ 
i 
Z 
‘ 


#234 
=) 





UNEXPECTED MECHANICAL MOTION - “PIP™ = 1 


Ca 
bao 


eae 


Dom bs Bens es Ds Pe an Be ee Ge be pn Pe ee 


UNEXPECTED DEVICE FAULT - “DVC” = 1 


moat 
ial 
4344570 
pare re 


;ERROR 21 UNEXPECTED SEEK INCOMPLETE ERROR - “SKI” = 1 


Doses 079620 
Boxe78 OPO 
ooeere Ore0m 
ne 
Bs 4 
br 5e32 
eae 
072102 
Or 3784 
074044 
b756e0 
ten 


C9 GIG) GG) GIG) GI GI GIGI) G) GI GI GIGIG) Ga) GIGI GI) GI GIGI WIG) 


eb pb ht et bt be be be bo he a Pete 


;ERROR 214 DRIVE EXECUTED A RECALIBRATE WITH ERROR SET 


Ras fees pee 
oO £r 


;ERROR 215 DRIVE DID NOT DETECT “IVC” ERROR DURING RECALIBRATE 


BEQKRLGS=LSZSVRRIBV= BIaread ZINn-“SSSCERLEH= 







i 
= 
— 





;ERROR 216 INCORRECT “IVC” STATUS 


;ERROR 217 INCORRECT “IAE” STATUS 


oa Ss Oo 


072124 T217 
073620 EHT1 
073744 EDT! 
074034 EFT 


;ERROR 220 INCORRECT “WLE” STATUS 


KO6 
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ERROR POINTER TABLE ' 


“8 


INCORRECT “OPI” STATUS 


: 
om som 5 





EDT1 
EFT1 
;ERROR 222 RMO3 DID NOT DETECT RMR ERROR 
EMT222 
EHT1 
EDTI 
Tl 
; ERROR RMO3 DID NOT DETECT PARITY ERROR ON MASSBUS CONTROL BUS 
28: 
Eiise 
EF T2e3 
; ERROR get UNUSED 
0 
0 
0 
; ERROR . UNUSED 
0 
0 
0 
; ERROR 7 UNUSED 
0 
; ERROR ger UNUSED 
0 
0 
0 or. 
;ERROR 230 UNUSED 
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29-JUL-77 13:33 ERROR POINTER TABLE 
0 
0 
0 
0 
jERROR 231 UNUSED 
0 
0 
0 
jERROR 232 UNUSED 
0 
0 
0 
sERROR 233 UNUSED 
5 
jERROR 234 UNUSED ; 
hi 
0 
0 
sERROR 295 UNUSED 
0 
0 
0 
ERROR * UNUSED 
4 ih 
jERROR 237 UNUSED 
0 
0 
0 
SERROR 240 UNUSED 
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DZRNCA.P11 29-JUL-77 13:33 ERROR POINTER TABLE 





*-A 
‘ 


A 
Ata At At at aAtatata* 
+ ¢ 


seas 
SRR 


oooo + 





Tiny 


Ata AtAtAtaAtatat 


; ERROR 7 UNUSED 











gpsi7e ; ERROR f UNUSED 
004176 0 
4 004200 0 
enh ERROR 243 UNUSED 
i 0 
3S 1 0 
IJ2 
ch 
1356 ;ERROR 244 — UNUSED 
4 12 : 0 
IIE 14 0 
et ; 
IIE 
xc: 
13 jERROR 245 UNUSED 
0 
0 
0 


; ERROR Fe ous “ATA” NOT RESET BY GO WHEN “ERR” 


“ATA” NOT RESET BY WRITING RMAS 


oi i Ge 
ae: 


ie ;ERROR 250 “ATA” WAS RESET BY GO WHEN “ERR” = 1 
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DZRNCA.P11 89 29-JUL-77 13:33 ERROR POINTER TABLE 


EDT! 
EFT1 


: ERROR PROGRAM INTERRUPT WAS NOT GENERATED 
, FBto1 é 

266 
; ERROR a PROGRAM INTERRUPT SHOULD NOT HAVE BEEN GENERATED 
: ERROR OFFSET MODE WAS NOT RESET BY WRITING RMDC 


;ERROR 2S4 INCORRECT “ILF™ STATUS 


; ERROR ——_ INCORRECT “ATA” STATUS 


8 Go Gf Ga se 


; ERROR INCORRECT “ILR” STATUS 


; ERROR ef INVALID IAE STATUS DURING SEARCH COMMAND 
T257 





;ERROR 260  #$ “IVC” WAS NOT DETECTED DURING SEARCH COMMAND 





3 
3 
a 
<2 
3 
z 


fee ee 


an G2 6 82 89 82 &s 


ee 
So 


ce 


De 


SSE gy ag a ae year yyy TITTY 
i 


_ 


= 


: 
am 


: 


) 29- 
TABLE 


qos 
ice i 


—— 
ee 


Ose 9S 
: 


qasae 
ee 
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DRIVE EXECUTED SEARCH WITH ERROR SET 

“LBC” ERROR NOT SET DURING DIAGNOSTIC MODE 

"SKI" ERROR DURING SEARCH COMMAND 

“IVC” ERROR DURING SEARCH - LOST VOLUME VALID 
ERRONEOUS IVC ERROR DURING SEARCH - VOLUME IS VALID 


DEVICE FAULT (DVC) DURING SEARCH 


SKI SHOULD HAVE BEEN SET BECAUSE CYLINDER 
ADDRESS IS TOO LARGE 





ELT T HEL edema s cenei cenit icceumaaceeaa sect eee ren E 


a 08 08 i 3 


as G8 88 Gy & 


i ol ee 


a 


“i 
Z 
7 


re 


- 


A 
= 


ERROR PO 
; ERROR 


SINIER TABLE 


270 
1 
1 
1 


a 


aoa 3 
- 


as oO 
Ss 


3 


MT276 


aS 
eel a ee 


a} 
~) 
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OPI ERROR DURING SEARCH BECAUSE MOL = 0 


OPI ERROR DURING SEARCH BECAUSE ON CYLINDER 
DIDN’T DROP 


LOST MOL DURING SEARCH, OPI IS NOT SET 


PIP STIL SET AFTER SEARCH 


PARITY ERROR OCCURRED WHILE WRITING REMOTE 
REGISTERS BUT MXF DID NOT SET 


MXF ERROR - COMPOSITE ERROR OCCURRED BEFORE DATA 
COMMAND STARTED 


md ERROR DURING DATA TRANSFER BECAUSE “MOL” WAS 





Raa eee erie Pee eee Ceer Ty creer ee 





a 
ES 
Bee 
an 


072666 
ai 
072704 
ban 
Hees 
Fan 
ras 
fan 
ban 
ees 
fan 
ees 
ait 


ae 
£rM 


ce ne 


8 
3 

Xf 
a 


a 


PO 


; ERROR 


; ERROR 


ond 
Prt 


age See 


DO? 


(1046) 29-JUL-77 14:32 PAGE 81 
NTER TABLE are 


we nol eine DATA TRANSFER BECAUSE VOLUME 


ERRONEOUS “IVC” ERROR DURING DATA TRANSFER - VOLUME 
TS VALID 


“ILR” ERROR DURING DATA TRANSFER 


“ILF” ERROR DURING DATA TRANSFER 


“RMR” ERROR DURING DATA TRANSFER 


INCORRECT “IAE" STATUS DURING DATA TRANSFER 


"SKI" ERROR DURING DATA TRANSFER 





= RNO3 TEST, PART 1 MACY11 30(1046) 29-JUL-77 14:32 PAGE G2 SE@ 0085 
Pil 13:33 ERROR POI ABLE 
; ERROR pO 07 DRIVE DID NOT DETECT SKI ERROR DUE TO CYLINDER 
eee 
Tl 
EFT1 


;ERROR 310 DEVICE FAULT DURING DATA TRANSFER 


;ERROR 311 LOSS OF BIT CLOCK DURING DATA TRANSFER 


;ERROR 312 LOSS OF SYSTEM CLOCK DURING DATA TRANSFER 





; ERROR te UNSAFE ERROR DURING DATA TRANSFER (DVC = 0) 


;ERROR 314 DRIVE TIMING ERROR DURING DATA TRANSFER 


ROSES Seance nee ne ce aaaeaaaaaa fe 


HERR ee we 


712 314 
Bais a 
649 004720 EFTI 


;ERROR 315 WRITE LOCK ERROR 


;ERROR 316 ERRONEOUS WRITE LOCK ERROR 











BOP Os “ = : 5p 6 OL 





RREERERERR RR Ute 


SRR AAAS, 
OO NCU £ GIT 
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ERROR POINTER TABLE 


; ERROR gir 17 HEADER CRC ERROR DURING DATA TRANSFER 
EHT1 


; ERROR FORMAT ERROR DURING DATA TRANSFER 


ao a 


qos 


HEADER COMPARE ERROR DURING DATA TRANSFER 


———— 
Cs 


HEADER ERRORS SHOULD NOT BE SET 


aN sey 


DATA CHECK ERROR DURING DATA TRANSFER 


seaa0 
g 


CORRECTABLE DATA CHECK ERROR DURING DATA TRANSFER 


asa 
sade 


;ERROR 32S UNCORRECTABLE DATA CHECK ERROR DURING DATA TRANSFER 


; ERROR 2OP oe DATA PARITY ERROR DURING READ COMMMAND 





SS SN SRN Sy 
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i a He 13:33” ERROR POINTER TABLE 
; ERROR 327 OFFSET MODE NOT RESET BY WRITE COMMAND 
327 
EHT1 
EFTI 
sERROR 330 DATA PARITY ERROR DURING WRITE COMMAND 
pee a 
Ti 
at 
sERROR 331 WRITE CLOCK FALURE DURING WRITE COMMAND | 
ee ie r 
Tl 
074034 EFT 
oos07e ; ERROR Fite DATA LATE ERROR DURING DATA TRANSFER 
B53e58 1 
005076 073744 EDT1 
005100 074034 EFT 
ERROR 333 PIP STIL SET AFTER DATA TRANSFER - SKI = 0 
005 192 073340 EMT333 
108 073620 EHTL 
Beetie oraogy EPH 
sERROR 334 LOST MOL DURING DATA TRANSFER - OPI = 0 
005112 073356 er 
iB eS | 
nate eH 
sERROR 335 LOST VOLUME VALID DURING DATA TRANSFER - IVC = 0 
005122 073374 EMT335 
bos 1e4 073620 EMT! 
eIS8 Bodoss EFT 
“ERROR 336 DATA READ DOES NOT COMPARE WITH DATA WRITTEN 
005132 073414 : EMT336 
ele ron ee 
0051 EFT336 
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13:33 ERROR POINTER TABLE 


;ERROR 337 WRITE CHECK ERROR NOT DETECTED 


;ERROR 340 WRITE CHECK ERROR AT UNEXPECTED ADDRESS 


;ERROR 341 INCORRECT DATA DURING WRITE CHECK ERROR 


; ERROR Bie auo “IVC” ERROR NOT DETECTED DURING DATA TRANSFER 





- 
A 






“ttf 






+ 
+ 
+ 


;ERROR 343 “FER” NOT DETECTED DURING DATA TRANSFER 






= al@ 


oe eelee 
° 


“HCE” NOT DETECTED DURING DATA TRANSFER 


oi ge 89 2) 28 28 
Sr 


3 
ba 
2 


4 
1 
1 
1 
1 
1 
1 
1 
1 
1 


; ERROR en “BSE” NOT DETECTED DURING DATA TRANSFER 


;ERROR 346 HEADER ERROR WAS DETECTED W/ HCI SET 


an a 











ot Sa 


o£ 





oS 
cS 
En be 
ES Be 
ES Ee 
cS 


S 
F 
': 


10? —— 


29-JUL-77 14:32 PAGE 86 
ABLE 


ERROR 
;ERROR 347 DATA TRANSFER NOT ABORTED W/ COMP ERROR SET 
;ERROR 350 LOST VOLUME VALID DURING SEARCH - “IVC” = 0 


“ATA” DID NOT SET DURING SEARCH 


esa 
a 


PROGRAM TIMEOUT WHILE TESTING RMLA 


é 
Te 
i 


LOOK AHEAD TEST FAILS 


;ERROR 354 BSE SHOULD NOT BE SET 


:PUT T 
OOTTE ERROR USAGE 

;THE ERROR TABLE ABOVE CONSISTS OF FOUR WORD ENTRIES FOR EACH ERROR 
*NUMBER, I.E., 


Ef ; fee NEROER TRGLE. ADDRESS 
t: PORNAT ADDRESS 
TR WE BUTI cAEaD ESOROeES, Mok A. SEc RY EAE a Wiles 





reer terete EE 


JO? 
MACYI1 30(1046) _29-JUL-77 14:32 PAGE 87 
ERROR TABLE USAGE 


j0F ONE OR MORE ERROR MESSAGE STRINGS WHICH ARE TO BE FORMATTED AND 
i Reabll Yor HES FOE kin, ME OAT ENT 1S Ze, Tene 1 
SIMILARLY, THE EHT, EDT, AND EFT ENTR 

fa Bey FMRI E Fou hee eet ey” OF 
sere. i tet ts 6 HEAUER Lhe hay iP hatireriaay Sart ANY BAT — 


aur a porn bie LINE’ a Foun aT a WITHOUT A HEADER, AND EACH DATA’ LINE 


EACH NONZERO ENTRY IS THE ADDRESS OF A TABLE 
EACH TABLE IS A LIST OF ADDRESSES WHICH DEFINES THE LOCATIONS 
5 OF MESSAGE STRINGS, HEADERS, DATA OR FORMAT. 


Lax J 


‘a 
DZRMCA - RMO3 FUNCTIONAL TEST, PART 1 MACY11 30(1046) 29-JUL-77 14:32 PAGE 88 SE@ 0091 
Pil  29-JUL-77 13:33 START OF PROGRAM 
-SBTTL START OF PROGRAM 
00S322 START: 


;CLEAR AND SETUP FOR TEST EXECUTION 
Boone SF” ome coe) ET RIEGTG BP 
64S: 


;SOLERR The ConPON Tees (SomTAG) ABER 
SSCNTAG, R6 ;;FIRST LOCATION TO BE CLEARED 
MEMORY LOCATION 


es BSR, Re; ;DONE? _— 


SUP THe Track POINTER 
jar A “ist UectoRs 


Be Se 
eae 
Cc 





GecTor FOR TRAP CALLS 


teh FAILURE VECTOR 
g 


Soineererer recency | 





E 
SBSSCRSESELELE 





oo? 
012706 
flere 
ie ae 
1 2070 04 SENDCT, SEOPCT 
Bis tu OE eee Br aE 
hissa% Boeney Aottss Mat BOP AGRESS FOR SCOPE 
012737 005472 001124 
js SIZE FOR 8 ITCH “itt ea cea i's 
13549 Bosedd goons s HOV iseere Bon VecTOR a 
12737 177970 001154 HOV jie p FOR A iH SWICH REGISTER 
17570 eae CMP >: TRY TO ReREME 
iol2 BNE i SBRANCH I NO TIMEOUT 
” a THE HARDWARE SWR IS NOT = -1 
ooss46 65S: Hoy #66S, (SP) Har P FoR SREP RETURN 
1 900176 001154 66%: MOV SSWREG, SWR ;;POINT TO SOFTWARE SWR 
1 00174 001156 MOV #DISPREG, DISPLAY 
005562 012637 000004 67S MOV (SP)+,a8ERRVEC ;;RESTORE ERROR VECTOR 
001230 CLR SPASS ;;CLEAR PASS COUNT 
000200 001243 BITB SOBTSIZE, SENVM j js TEST peer SIZE UNDER APT 
12799 001244 001154 MOV #SSWREG, SWR t +NO, USE apr SWITCH REGISTER 








LO? 


MACY11 30(1046) 29-JUL-77 14:32 PAGE 89 
TYPE PROGRAR NAME = Oe 


PSENDAD, a842 jean, be 
Hy 


-SBTTL GET VALUE FOR SOFTWARE ote REGIS 


Ist gre NG UNDER XXDP/ACT? 
CMPB Os SENV, #1 Here We AMIR UNDER APT? 
ied US sure # ow CH REG SELECTED? 
GrSuR * H Foun SETTINGS 

71s: MOVB #1, SAUTOB ;;SET AUTO-MODE INDICATOR 


BR 69S ;;GET OVER THE ASCIZ 
jaZos: -ASCIZ <CRLF>@DZRMCA - RAMOS FUNCTIONAL TEST, PART 19<CRLF> 


;FIND OUT IF PROGRAM IS RUNNING IN STANDALONE MODE 
TST 42 31S LOC 4e ZERO 7? 
10$ ;NO - NOT IN STANDALONE 
TSTB = SENV : 
s 


IS APT ENVIRONMENT ZERO ?? 

108 ;YES - PROGRAM IN STANDALONE 

;PROGRAM_ NOT RUNNING IN STANDALONE - SEE IF SIZING TS ALLOWED 
girs S17, , SENVM j SIZING ALLOWED ? 


20s MOV #377, SDEVM YES - SET DEVICE MAP FOR ALL DEVICES 


;G0 TO COMMON START C 
JMP CHNSTART 


555555 








Sseseaans 


fm Pe pee Bee 





NOUS 












FUNCTIONAL TEST, 
29-JUL-77 13:33 


HR 3 


rr 


suns 


2 


—— Oe 

3 tf 
fh 

a pt he 


i 


g] Gun 


i 


_— 
=hes 
_— 
— 


pS ee 
bee 


063744 


PART 1 


000131 


000116 


000131 


000131 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 

STANDALONE : 
ON; PC, STKINT ; INITIALIZE CONSOLE 

;SEE IF THIS IS THE FIRST START AETER PROGRAM WAS LOADED 

#1 sFIRST START ?? 

;Yes ! 

-SEE IF USER TO KEEP FOR TESTING 

gS: TYPE CreLbo SAMRINTAIN PREVI PARAMETERS? ? 
nov + BEHO RESPONSE 


MOV (SP)+, STMP1 43 


a 


TYPE 
CMPB STHP1, 8" ig ers” 
ne READY *KEEP PREVIOUS PARAMETERS 
6S: CMPB 0s STMP1, #’N :NO_RE 29 
BEQ 20S *GET 
TYPE QSTMRK :NOT YES OR NO, TYPE “2” 
BR os * RETRY 
10S: 
;SEE IF OPERATOR WANTS HELP FILE 
TYPE ,HELPQST ;WANT HELP 2? 
RDCHR GET RESPONSE 
MOV (SP)+, STMP1 :SAVE AND ECHO RESPONSE 
OnPs STMP1,#’Y ;WAS IT AYES RESPONSE ?? 
a Ng OetPE HELP TEX 
‘te , HELP “YES - HELP TEXT 
;SEE IF USER WANTS TO CHANGE RMO3 UNIBUS ADDRESS 
TYPE ,UBUSQST san T ADDRESS 7? 
MOV ($4 STMP1 *SAVE AND ECHO RESPONSE 
c STMP1,#’Y ;WAS IT A YES RESPONSE ?? 
90s NO 2! 
30S: 
;DIAL TO CHANGE THE UNIBUS VECTOR 
GUE PE CNSLOI OOFBE CURRENT Bs RODRE SS 
MOV $BASE, -(SP) *:SAVE SBASE FOR TYPEOUT 
TYPOC :G0 TYPE--OCTAL ASCII(ALL DIGITS) 
TYPE , CLSPRN 
RDOCT ;GET NEW BUS ADDRESS 
MOV (SP)+, STMPL ; CARRIAGE RETURN? ? 
BEQ 50s j YES SK TO NEXT ENTRY 
CHP #160000, STHPL : ADDRESS IN 1/0 PAGE?? 
TYPE 4GNSLO2 : WARNING MESSAGE 
40S: MOV STHPI SBASE STORE NEW BUS ADDRESS 
50S: NOV Svectl STHPL *TYPE CURRENT VECTOR ADDRESS 





- RMO3 FUNCTIONAL TEST, PART 1 MACY11 gh a 29-JUL-77 14:32 PAGE 91 
PIL 29-JUL-77 13:33° GET VALUE FOR SOFTWARE SWITCH REGISTER 


Nee Matte 





eet Brig STMP1 FOR TYPE 


3 Hi ACT a asc 











TYPE 
i: 
066136 TYPE CLSPRN 
{ Rooct ° GET NEW TOR ROORESS 
Hoy (SP)+, STMP1 CARI cE Fe 
001176 Efe $1000, STMP1 Vea < Fboo?? 
fire se MESSAGE 
1272 : site SVECTI CTOR ADDRESS 
arte oe: Rove Svect #1, $1FP1 ‘pie PRIORITY 
nn 
for OSTPPI 
ne eta 
TMP1, -(SP) TMP1 FOR TYPEOUT 
NE WP Sr¥Pi,~($P ASCII 
: Be A yew iT ea 
i CLSPRN 
es (spr saat ;GET canna PRIORITY 
187 Q : S ves aK | FE UENT ENTRY 
¢ a STMP1, 87 i IORITY?? 
airy 
DSC YPE 06 WARNING MESSAGE 
58} BR 408 TRY 
ty STORE NEW PRIORITY 
DS ASL STMP1 
J ASL STMP1 
Hel 
5g: Get TMP1 
ty, can MOVE  STMP1, SVECTI+1 
: : 
: | ;DIALOGUE TO INPUT DE DEVICE NUMBERS 
4 Tipe CNS? fier neuy Tnstrucrrons 
Ps : tl CHARACTER 
: ; to ($P 4 STMP1 Eo 
: 000101 cre sie, 8’A : ALL ORIVES?? 
: 001300 MOV 377, , SDEVM ; T ALL DEVICES 
4 100$: PNP , PROMPT i PE PROeT ING CHARACTER 
My ROCHR ;GET RE 


TUR ele Sirk ET Lo 





HOY ($F) STHPL ;ECHO RESPONSE 
ce gfe acr ;CARRIAGE RETURN?? 

110: cr tHe, #°0 ER « 077 
cr sire, 8°7 sree > 799 

1208: TYPE Nee ; 4° 

130$: MOV i 1,R1 *RI=DRIVE NUMBER 
BIC 8tC7, Al 
MOVB RTNTBL (RL), Re ;DECODE DEVICE NUMBER 
Be Ren, PSE ih he 
Oy, SE cone? 
BHI 100$ :NO 

140$: 


CO8 
BB 5,08 EUGTIONL TEST, PORT LHL BRD SE Stroh st © sco 00% 


FROM DEVICE MAP 


RO RO = MAP 
STSTQUE+2,R1 ;R1 = OF DArES OF FIRST ENTRY IN QUE 
TSTQUE : INITIALIZE ENTRY POINTER 


are RS = Device MuraeR 





Re, RO i13 THIS DEVICE IN MAP 7? 
(R1) NUMBER IN QUE 
THTBL (RS), rere} R ATTEN Sir 
’ 5 
POINTER 
a ASU ae iD 
: ICE NUMBER 
: DEVICE 
) ‘TERMINATE TEST QUE 
41 004737 o44534 ISR PC, SIZCLK SEE IF CLOCK PRESENT 
4] G00403 BR 4o$ YES = CLOCK IS PRESENT 
ut é - HALT : 
dise Berig Ore ow, * * 
4160 .SBTTL GET VALUE FOR SOFTWARE SWITCH REG 
4164 90671 ooo042 TST aae2 hee te TONING UNDER XXDP/ACT? 
41 71 rat BNE 64S + BRANCH IF YES 
4163 Ie 001242 000001 CMPB 0s SENV, #1 >;ARE We ING UNDER APT? 
4164 1406 BEQ 64S > :BRANCH IF YES 
41 Ge37e7 001154 000176 CMP SWR, #SWREG +3 SWITCH REG SELECTED? 
41 1 BNE 6S$ se F NO 
W167 me tate GTSHR ms 3GET SOFT-SWR SETTINGS 
digs on il 000001 001150 bus: MOVB #1, SAUTOB ;;SET AUTO-MODE INDICATOR 
417 READY: NOP : TO START TEST 
sive es iti 063744 JSe PC, STKINT TAIT IAL L2e TTY 
41 760 O1g7He 000300 MOV PR, -(SP) : «PUT Neu PS ON STACK 
4174 12746 006772 MOV #64$, -(SP) : PUT PC ON STACK 
di ooooc2 on RTI POP NEW PC AND PS 
4177 006772 117737 172450 001234 "  MOVB) «= @TS1@UE,SUNIT  ;LOAD UNIT NUMBER 
4178 005037 001472 CLR MEDENB ‘CLEAR MEDIA ENABLE 


“3 
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13:33° Tl CONTROLLER ACCESS TEST ed 


wi 
— 


o oo 


i 
—_—_ 


oO 
g 


SRBREES SCESLSESLCLLLSSCSCLCLESCLLSLOC OS a 
Dane Deat Gren dea fees Be Fae fee Boe fas Em foe bos Dae Pas PR ee ee pe 

See GRASSCSRSRSRRPRRERS 3 
— 

od oe 

88 a ZRH ERERERE 


ss 


Bn Bae hae eo Fs en Pee fe ot fee 


fororuroforurD 
SRESSKSK BR SAIS 
FNSERENS 


NOULWe 


aa 


Seseeeiains 
sos Eosoaes 


is Ss 








$5 MSE AE SEE EEE SEE ESSE SE SE SE 
TEST 1 CONTROLLER ACCESS TEST 
os} MERKLE RERRELEREYRSLESE 
t$T1: 
001122 tat peed ag: 
ee 001124 * MOV tid’ StPere 
001100 ’ MOV SSTACK, SP j INITIALIZE STACK POINTER 
Sp tage NOV Pe eR Oe Vite BEING TESTED 
000001 001226 HOY 81, STESTN ;SET TEST NUMBER IN APT MAIL BOX 
00008 MOV C,-(SP)__ ;;PUSH ERRVEC ON STACK 
HOV che, (SP) ;;PUSH ERRVEC+2 ON STACK 
Bp0300 eee MOV CERRVECH 
000001 MOVB ;MOVE HI BYTE TO RMCS1 
0000. HOV :MOVE WORD COUNT REGISTER 
HOV sMOVE BUS ADDRESS REGISTER 
HOV ;MOVE CONTROL STATUS REGISTER 
HOV ;MOVE DATA BUFFER 
MOV -:POP STACK INTO ERRVEC+2 
MOV ;:POP STACK INTO ERRVEC 
BR *MO BUS TIMEOUT OCCURRED 
3S: CMP (SP)+, (SP)4 ADJUST STACK 
000006 MOV (SP)4+) ERRVEC+2 =:POP STACK INTO ERRVEC+2 
000004 MOV (SP +, ERRVEC ; POP STACK INTO ERRVEC 
oooo42 rst He i STAND AL RODE 7 eaten 
005322 IMP START *YES-GO GET SBASE 
042034 SS: JMP SEOP GO TO END OF PASS HANDLER 
gs REGL ERE GG RES EEGREG EE ERRA AES RARER REE HERES A RRR ERES 
TEST 2 DEVICE AVAILABLE TEST 
F  aaagggmagiree pce MG HE HE HE HE HE HE HE HE HE HE EE HE EE EE HE EE 
"SCOPE ; CALL 
NOP “START OF 
001100 MOV SSTACK, SP tPNTTIAL TZE STACK POINTER 
001276 MOV SBASE ;ROSUNIBUS ADDRESS 
001446 MOV TSTQUE.R1 *(R1) = DEVICE BEING TESTED 
poood2 001226 MOV #2, STESTN >;SET TEST NUMBER IN APT MAIL BOX 
053210 JSR PC, CNTCLR 
BR 2s GO TO 25 IF NO ERROR 
NOP RETURN HERE IF ERROR 








wl 


SG Gas esse cscacecans scaanasanmnnninssemnccens Hi 





001226 


E08 
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DEV 
ERROR -ERROR NUMBER Der BY SUB 
née IMP 7$ G0 TO 7$ IF ERROR WAS 
° nov 5‘), ; ; PUSH one ON STACK 
HOV Ra's SP) ERRVEC+2 ON STACK 
MOV #55, EVES 
MOV RCS ) 1 ;GET OVA STATUS 
HOV PES) C+2 sGET Ned STATUS Kinty eae INTO ERRVEC+2 
(SP)+° C POP I 
By seD, pee 
ERROR 11 t NONEXISTENT DEVICE 
3S: IT sOvA, STHPL ute AVAILABLE?? 
Bre *YESt! 
il2 DEVICE NOT AVAILABLE 
BR 7$ 
— nov (Spys'eRRvece2 | power INTO ERRVEC+2 
ERR 3, : ‘hus. inl TRAP)” 
7s: SME doce 
9S: 


$Me aE AEE SE EE SE SE A SS a a SH HE HE 
foe 3 DRIVE TYPE TEST 


+s LELALALLLLLLLLLLALLALLLLLALLLLELLLLELARLELELLLELE EELS LEE ERELRELE 


SCOPE 
NOP 
MOV 
HOV STOLE RI "Ri NG TESTED 
MOV yas et AOHBER IN APT MAIL BOX 
JSR PC, CNTCLR 
BR 2s ;GO TO 2$ IF NO ERROR 
NOP ;RETURN HERE IF ERROR 
ERROR “ERROR NUMBER DEFINED BY SUB 
* IMP 45 ;G0 TO 4$ IF ERROR WAS FOUND 
k MOVB  SRMDT,GETINX ;SETUP GET INDEX TABLE 
RY’ ERAGH” sor evr puren = 5 
ISR PC, GET Stet ORI 
BR 3$ G0 T0 38 1F NO ERROR 
ERROR iEhnon NFGER SPE CIFIED BY GET 


SSNGPRT,RMOTI SINGLE PORT RMO3 
ss : YES! 
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MACY11 30( 1046) -77 14:32 PAGE % SE@ 0099 
3 DRIVE Ler TEST 
CMP SOULPRT,RMDTI  ;DUAL PORT RMO3?? 
BEQ cs :YES!! 
me re 
114 NOT AN RMOZ 
4g: IMP SEOSP GO TO SUBPASS HANDLER. 
OS, EAE HEHEHE HEEEEEEE HERE EEE ERPPRKEKLAREELEREA REESE 
TEST 4 UNIBUS INITIALIZE TEST 
o£ SEEERERELKRSUREE RE REESE 
téT4: 
ROP ' ORT 
MOV #1, STIMES *LOAD SeaTEST, COUNT 
MOV $, si PAR 
ia MOV #15, SLPERR 
: MOV NITI 
HOV sense SF NTBUS ABORESS 
MOV STOLE RI *(R1) = DEVICE BEING TESTED 
MOV #4, STESTN :;SET TEST NUMBER IN APT MAIL BOX 
ISR 
BR io CR TO 105 IF NO ERROR 
ERROR 7 NOcER beF TED BY SUB 
sv ore iy R2 pis SET mt dhe 
MOV 80, RMDBO : a ZEROS N DATA SILO 
re eee, seer cmper 
, PUTINX+1 
JSR pC PUT W ITE STERS VIA PUT SUB 
BR ;G0 To 388 
NOP i 
Ss ere 
MP 2208 = ;G0 TO FOUND 
30$: DEC Re. 
ae #-1, RMBAO 
MOV 8-1, RMERIO eae S 
MOV $-1' RMERCO : = 
MOV som! RMMR 10 ;SET DIAGNOSTIC MODE 
MOV ,RACS1O 
MOV 1037; RMCS20 
MOV #PUTINX, Re ;R2 = ADDRESS OF INDEX TABLE 
MOVB (Fe) 
MOVE eran. aye 
MOVB SRMPIRI: (Ro)+ 
MOVB SRMCS1, (Ro)+ 
MOVB BRMCS2, (Ro) + 





A SLI RPO BUD ART PE 


SE@ 0100 


, SCT, TRK 


STERS VIA PUT SUB 
CTED, RECEIVED 
ALIZED 


Ja, goworti0n 
ITE DATA BIT 


COMPARE EXPECTED & RECEIVED 
; IGNORE WORD CLOCK 


BG Wtii il da 

peter: pee 2 ge 
e Eau8 cwoks. & Se ch & WS tel 2 et 
ames Ge EREMEE fe i 
-? 3 : 3 a : : - Ea e 3 oer 
he See ee. at + L = 
fe Sos a fale: Hie: Baske Hite La “es ie 


Sugbeeinennases BLEREE Sege anEeaese seese asSdaecse aca 


: ote y Eat ; 

— 

— oom t 
yyou y 9 9 yy og yy 
ed ed <4 = ee “+ eh ed 
mH — ot = eed — on 
8888 s 8 8 ss 8 838 

= = FS gose 6 8 8fS $F BE oe 
a 8538 88 8 888 8s & 5 8 
- nN —w0 2 oP. = —ey 
: bated Seager goes Resehe GRGEr es 
“a: a 85 =HSse 3S 
= ct = 5bs2 
SRRSU SSE GEeESS Seas SURNAMES GRIER CRaaaeNe - 
ward ot eg ad Ed ag Oe ed oh og ee 
ooeomy e20000D 2000 o0000 OO000000O0OO0O OOO 





rrrzrzrszrzaz7zIF77F7I7 7777777777777 rrrrzr7rz7z7z77F7FT 


ii BLUM Reh PES RS NSS SSS SSS “CREE Dit tact a ate 


RMOS FUNCTIONAL TEST, PART 1 ae 30(1046) 29-JUL-77_ 14:32 PAGE 98 SEQ 0101 


1 aS 
a 


ee ee eg ee ey ere 


299 


Dod 


Oooo ooOoooO000O GF0O00O0O 
Se a err arene 


z 


Dee 
Le 


suasaamsaniesiiainseemmummuaentenieas F 
PEPLELE 


fees Bhs Pee eo Pe Gs hs fee fe ft bee bs ee geet fe bc Bae Be pe ee 


ease STE 


29-JUL-77 13:33 UNIBUS INITIALIZE TEST 
001140 001142 CMP SGDDAT,SBDDAT  ;COMPARE EXPECTED AND RECEIVED 
001401 BEQ 170$ *BRANCH IF 
104122 ERROR 122 RMMR NOT INITIALIZED 
001140 170$: CLR SGDDAT EXPECT ZEROS 
oat q 001374 001142 MOV R C2I,SBDDAT  ;VERIFY RMEC2=0 
i FESR 1 sRMEC2 NOT INITIALIZED 
1 00 1142 1905: T  ;VERIFY RMMR2 
a a ko 
1 11 11 MOV 81ST!177?, SGDDAT EXPECT TEST, TAG BIT ON 
S5i68) 001140 o01142 ch T, SBODAT 
1041 ERROR 125 ;RMER2 NOT INITIALIZED 
1 210$: CLR $GDDA : T ALL ZEROS 
poso, aed 001142 MOV RMER2I , SBODAT FER FY RMER2 
ot 040200 001142 BIC #Sk1!DVC, SBDDAT IGNORE DEVICE ERRORS 
1 1 EO 21 ‘BRANCH IF OTHER BITS O 
i 001340 001142 215S: MOV I *CHECK DRIVE STATUS REGISTER 
177177 001142 BIC 8¢C<DPR! DRY? T 
12737 000600 001140 MOV ‘DRY, SGDDAT ;EXPECTED STATUS 
001142 001140 cH SBODAT, SCOOAT ; COMPARE CTED & RECEIVED STATUS 
1 Q H DRIVE T IS OK 
1041 ERROR lea : T IN DRIVE STATUS 
220S: 
$3 EXPLA ALRERELS KE GHA EL ELLA EN ELE LEAKS KERR HS ERY ARLE LAL LEK KE RAKES 
:RTEST S CONTROLLER CLEAR TEST 
; peepee ange pues so seRREIRgpe comin Artima sent, 
SeTART OF TEST 
SSTACK, SP ‘INITIALIZE STACK POINTER 
SBASE : RO=UNI Ss 
STQUE RI *(R1) = DEVICE BEING TESTED 
#5, STESTN *:SET TEST NUMBER IN APT MAIL BOX 
PC, CNT 


CLR 
10$ GO TO 10$ IF NO ERROR 


ROR MURGER DEFINED BY SUB 


43 
80s ;GO TO BOS IF ERROR WAS FOUND 
.,R2 
RMDBO :WRITE ZEROS IN DATA SILO 
sPUTINK ;SETUP REGISTER INDEX TABLE 
#200, PUTINX+1 
PUT -GO WRITE REGISTERS VIA PUT SUB 
;G0 TO 30S IF NO ERROR 
> RETURN IF 


PC 
308 
; ERROR 
*ERROR DEFINED BY PUT SUB 


gia HERR S888ey 





me Soe » PART 1 pecvis sing pears qi PAGE 39 SEQ 0102 





010752 IMP 80S ;GO TO 80S IF ERROR WAS FOUND 
WRITE SILO AGAIN IF NOT DONE 
177777 001402 Be 8-1, RMBAO 
177777 OOl4le MOV 8-1, RMERIO 
eee 001440 MOV 8-1, RMERCO a 
Bat 396 eg age 
1 001406 MOV se! * RNCS2O 
MOV NX? Re ;R2 = ADDRESS OF INDEX TABLE 
MOVB (Re)+ 
14 , (Re)+ 
* (RO)+ 
SRMMRI; (RO)+ 
000000 MOVB eRNCSI, (Re)+ 
00001 MOVB (R2)+ 
MOVB 8200, (Re)+ 
316 ISR PC, PUT GO WRITE REGISTERS VIA PUT SUB 
BR 40$ GO TO 4 NO 
NOP clase 
ERROR Aer IF ERROR PUT SUB 
4480 0004 BR 70S 
44g 
oe 053210 —_ CNTCLR 
RRA oa ESS GO TO 0s IFN NO ERROR 
44BS NOP Prete ef ted on 
dag 010752 Re 80$ joo TO ee An REE EBUND 
ot -_ Jan PC, geTsTs VIA GET SUB 
BR 60$ G0 TO Ces 
Ms heh of a 
ERROR I BY Ger GET SUB 
137 010752 a IMP 80S GO TO igh", IF ERROR WAS F 
737 053326 JSR PC, CLRSTS ;G0 VERIFY CONTROLLER CLEAR OPERATION 
BR 70$ 19 708 If NO ERROR 
on SOUR SSE hasrs supour 
ISR PC, @(SP)+ GO BACK F eee am 
etka 010752 an JMP go$ 60°10 OOS IF E IF Baste Uns FOUND 
001376 MOV 8NOP, RMCS10 ;CHANGE FUNCT FOR ERROR CHECK 
ete teen JSR PC, SECERR GO CHECK FOR aa 
BR gos GO 19 IF NO ERROR 
= = eae 
ntaes Re pc, acspo+ NORE ERROR CHE 
4509 


H 2 gemma OE ae aeecarrearemenimumeene er atemmennninsie: 
: &TE ERROR CLEAR TEST 


TARR 
£WwreoO 


o EMMSLEYLRERSEREERAR EE ERES ERLE RAS ELE SEL SEEARRERERHRRLE MERE KERR E SRS 
010752 +éT5: 





Reh SESE ge A? 0 





SCOPE CALL 
16 O01 NOP START OF 
1 1 nov SINIT POINTER 
19 Ol MOV TSTOQUE, R1 :(R1) = DEVICE BEING TESTED 
01 2737 000006 001226 MOV 86, STESTN SET TEST NUMBER IN APT MAIL BOX 
011000 JSR PC, CNTCLR 
aie BR 10$ GO TO 10$ IF_NO a 
dese tf HOE OR : INED BY SUB 
Libis om IMP SOs ;G0 TO SOS IF ERROR WAS FOUND 
ti t 001533 *  MOVB =o SRMCS1,PUTINX ;SETUP PUT INDEX TABLE 
il 001534 MOVB #200, PUTINX+1 “WRITE TERMINATOR 
il 001 MOV STRE,RMCS1O Rng OUTPUT = TRE 
il ISR PC, PUT : PUT INE 
i BR 20$ GO TO NO : i 
ii ERROR : NURGER a sit BY Pit ‘fe 
il BR SOs ‘SKIP REST OF TEST 
i Te eae 
il pp Lebe Hove #200, GETINX+2 
11 ISR PC. GET -GO READ REGISTERS VIA GET SUB 
111 BR 30$ G0 TO IF _NO 
i HOROR AhED BY cet SUB 
Hi BR Sos SCIP Rest oF TEST 
il 001142 30S: MOV RMCS11,SB80DAT ; CHECK 8 
111 CLR SGDDAT “EXPECT 0’S 
it 001142 BIC —-8tC< TRE! MCPE> , SBDDAT Rye oe 
ae tit BERR Pkt, 'MCPE, OR TRE NOT CLEARED 
4550 011136 001142 40S: Mov RMCS2T, SBODAT__ + CHECK RMCS2 
ita 001142 BIC Bsccuce! ‘NED! PGE! MXF !MDPE> , SBDDAT 
ities ERROR 140 ;RMCS2 NOT CLEARED 
ee 011156 SOS: 
gs ERULEEERREEESRREREL REE RRS EE KE LE LER EE RELL E AMER AS EELS LHRH EEE REL ES 
es :RTEST 7 DRIVE STATUS TEST 
Wt ; ase maaaaaleeetan 9 SPN TS daammntas ma INR Ra CE 
ieee 11156 000004 "SCOPE : SCOPE 
Hie NOP : START SF test 
111 1 001100 MOV 8STACK INITIALIZE STACK POINTER 
111 1 001276 MOV *RO=UNIBUS ADDRESS 
111 1 001446 MOV TQUE RI 7(R1) = DEVICE BEING TESTED 
4567 011176 O1 000007 001226 MOV 87, STESTN ::SET TEST NUMBER IN APT MAIL BOX 
il 004 053210 JSR PC, CNTCLR 
sees seat Boe BR 10$ GO TO 10S IF NO ERROR 





GRERALLEAISEFAACRsAEEAseEcastsss ccatEEaasEREES SAINTS 1 


Pl 


RMO3 FUNCTIONAL TEST, 


rs 
=r 


-_ 
o£ 


ed ed Pen fe fe Gat tes Bam fen Bon Ben Bon Pee gee fee Pec hes ee De oe 


Lee 
Bae fee 
oe 


pre fens Gee fae Dat Pee SEER EEE SL £ Eedtdtadtsdtdedeadtadted es 


Rearen 


29-JUL-77 13:33 


011502 


PART 1 








MACY11 30(1046) 29-JUL-77 14:32 PAGE 101 
17 DRIVE STATUS TEST 


NOP RETURN HERE IF ERROR 
ERROR NUMBER DEFINED BY SUB 
IMP 100$ ;GO TO 1008 IF ERROR WAS FOUND 
JSR PC, GETSTS 
JSR GET -GO_ READ ae VIA GET SUB 
PR. 20$ G0 TO 
ERROR ; creer oe cet SUB 
BIT aol, RMOSI ba Oinet 
MOV - RMDSI, SGDDAT ‘EXPECTED STATUS 
BIC ck ial ; SGCDDAT 
MOV Rnost T  ;RECEIVED STATUS 
ERROR MOL STATUS INCORRECT 
fee 8OVC, RMER2I 1S THERE A NEVICE CHECK?? 
CLR os DrELIeD § STATUS 
ERROR 152 
SOS: BIT OVC, RMER2I a DVC SET?? 
BEQ :NO!! 
BIT ,RMERLI : 13 (aS SET?? 
MOV RMERI I, SBOOAT * RECEIVED STATUS 
ERROR ti Pee Fens 15 NOT 
60S BIT SUNS, RMERLI 1S, UNS SET?? 
eo ee 
ERROR 1g is NOT SET BUT UNS IS 
70S: BIT SWRL , RMDSI TE PROTECT ON?? 
MOV _—« RMDSI_. SGDDAT BECTED § STATUS 
HOV FL il avivep stares. 
ee ERROR 17 ace we ERECTED DEVICE IN WRITE PROTECT 
90S BIT 8SKI, RMER2T iS, SKI SET?? 
Sesh mor ane srs 
ERROR 205 PERSISTENT SEEK INCOMPLETE ERROR 


100$: 


Ree CHOY ERR Teer 
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T10 PRIMARY /SECONDARY ERROR TEST aa8 SIGS 
TST10 
SCOPE 
Nov ‘ine I Pizt Stace POINTER 
eid TST The ING 
Rov Bae, cm =0RV Athen 8 PP Aor BOX 
ane + pestiee G0 TO 1S 
NOP SAE TURN PRS ERROR 
a oRper 360 TO i RROR MUMEER DEFINED BY 
ey a |fiRTTE TehadteTOR” 
HOY pul colt BUFFER = PAKACK!GO 
BR Be ~ TO wathy 
NOP 
ERROR 
fs Carey ms 
2s: JSR Rit ial TA FE CH 
488 Pe GET pagal yk Ps SUB 
BR 38 G0 TO 3°t IF NO 
ERROR ERROR EFI The ey cet GET SUB 
e BR cs ;SKIP RES 
: JSR PC, PRIERR GO CHECK FOR PRIMARY 
BR 4§ GO 19 IF Ni ERRCR 
on Sau eeu as em, grout 
GE cach Pia Re Ea 
- BR cs *SKIP REST OF TEST IF ERROR 
; ISR PC, SECERR G0 CHECK oN 
i 
ERROR INED BY SECERR SUBROUTINE 
dl ISR PC, a(SP)+ oc BACK FOR MORE ERROR CHECKS 
5 + REERERERMEKHRN EE ELEREERELES EERE ARR RRE RSME LE BEML MEMES REE RSE EERE 
kT TEST 11 DIAGNOSTIC MODE TEST 
une KEKKEESHERALA RA LHS RAAN ELA LARK SSKAL ARE HKAKHKELELE REE REKEK KALE 
; CALL 
START OF TEST 
aSTACK SINITI I ACK POINTER 
$BASE 
TSTQUE,R1 URL) = DEVICE BEING TESTED 


#11,$TESTN SET TEST NUMBER IN APT MAIL BOX 
PC, CNTCLR 


ry ery 





MO8 


aed MODE TEST 


SEQ 0106 


z 

: es ress eae 

. esr 3h FE ge & e ae 
g ue es Burs ee a 5 ae 5 af Bagi 5 wee = wo 
y 2 ee i gegeos ferey ® 8 Be aye 8 gis 8 zs 
—- RS ma 2 Oa a 
; 3 g Bie ie 2 =: % et 
_ LiL 


z : 
Ee. te iE it Ee a ia ha 
7 Sobia DERI, BER van ED: oncne-yecs scene cece onus 
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ee ee 
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001340 6§ 
142 
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1 
1340 
001142 
001142 
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001340 001142 


167777 Olive 
004000 
ime 
040000 

1370 
177577 
001140 





810000 001340 SS: 
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i] YB 0ye Set ? 


ist DATA FOR TYPEOUT 


rade bee va 


;G000 DATA FOR TYPEOUT 


DZRNCA.P11 29-JUL-77 13:33 Til DIAGNOSTIC MODE TEST 
4739 012246 001533 MOVE SRMMRI,PUTINX  ;SETUP PUT 
4740 012254 11 001534 MOVB 4200, PUTINX*| ice af ipa ate 
are 81855 Bhass Hex pe oehfeOr we 08 
na fen Bes me Berlin iad 
4 ERROR DEFINED BY PUT SUB 
ney 330 a IMP 225 SEOTTO BES IF ERROR HAS FOUND 
4 nee ae PC, GET . GO READ REGISTERS VIA GET SUB 
4 BR 12 G0 TO te F NO 
4 NOP E IF ERROR 
4 ERROR INED BY GET SUB 
4 IMP 225 GO TO IF ERROR WAS FOUND 
4 0013S2 12S: BIT SOD, RAAT ;1S_ QIAGNOSTIC MODE SET?? 
4 001140 my tis 1 iSpec a 
4 001142 MOV nl : T RECEIVED syanus 
q Hy 28 : SKIP REST | OF Test IF ue 0 
va 001340 125$: BIT #00, ROOST iTS OL = 19 
4761 001142 MOV RMDSI, SBODAT SETUP BAD DATA FOR TYPEOUT 
4 001 142 BIC —_ at T 
4 0011 MOV . EXPECTED MOL 
5 ERROR 1 *REPORT MOL STH ERROR 
ares 001340 13S: BIT PIP, RNOSI i PIP 6 2? 
4 001142 MOV 1, SBDDAT ip BAD DATA FOR TYPEOUT 
“763 001142 BIC etCPIP, SBDDAT nea 
4 ERRor Sap" HRePaT Bab P 1B STATUS 
W774 001340 14S: BIT SWRL , RMDSI ‘1 
Nae 00114 SBDOAT ae BAD DATA FOR TYPEOUT 
& 00114 BIC at SBDDAT 
8 001140 MOV ‘ T ; G00D STATUS 
4 : IN WRL STATUS 
4 001370 15S: IT H I SET?? 
4 BNE ;YES!! 
4 0011 3 HOY BAD DATA FOR TYPEOUT 
‘ 0011 MOV EXPECTED SKI ON 
q 
4 
4 
y 
4 
4 
4 
4 
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w 
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wr 
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COOOOOOOOOOOoOOoO0O 
a eee ee 


SRISSS SNAP RRR ORES REN 


SERN iS 


ee 


8322332222 SG RCRR SER RUS ONION ehce tener see tenee oe daaaa i 


SSERUSSSUROMNSREGINSER DUsawss 


cHGN GH Gn Ss 


Be Bat peas Jee fee dat pan Bene Ps Fat Be fo bs me B= bes fr bb be bm ee Pre ot fee [ene hm eno ee 


parva Rie) gat PAGE 105 SEQ 0108 


198: HOVE BRNCS1, PUTIN na at 


FER a ge oe at er Pot 508 





20S: 
ISR PC, GET GI VIA GET SUB 
BR 2i$ G0 TO aif iF, oe Beaae ers 
Peon oa se 
226 G0 TO ger cron OEFIN FOUND 
21S: BIT , RMER2I id LBC SET 7? 
MOV 1, SBDDAT “PATA FOR TYPEOUT 
MOV 8LBC, S$GDDAT 6000 DATA FOR TYPEOUT 
IC sLBC T 
5 SSAEESERAMESELERY SHEL KLKLEL SHARE ERE LEAR ELE LASERS 
:&TEST 12 PACK ACKNOWLEDGE TEST 
; Sa agate sesso PEKKLESHSERSRELHA ES 
SCOPE : 
NOP 35 SA test 
MOV aSTACK, SP INITIALIZE STACK POINTER 
MOV RO : 
MOV STQUE,RI1 >(R1) = DEVICE BEING TESTED 
MOV #12, STESTN SET TEST NUMBER IN APT MAIL BOX 
ISR PC, CNTCLR 
1s ;GO TO 1S IF NO ERROR 
NOP sRETURN HERE IF ERROR pa ae 
a ote or 9$ G0 TO oi ERROR bs OED 
: MOVB  SRMMRI,PUTINX  ;SETUP INDEX TABLE 
MOVB = #200, PUTINX+1 mie INATOR BYTE 
MOV #0MD; RMMR1O 
. a aE poe 
2s 
NOP 
ERROR oad NED BY PUT SUB 
ia IMP 9S 60 6 oS F WAS FOUND 
MOVB SRMMRI,PUTINX ;SETUP PUT INDEX TABLE 
MOVE  8200,PUTINX+1 [WRITE TERMINATOR BYTE 
MOV 80, RAMR1O j RMA 
JSR PC; PUT GO WRITE RMMRI VIA SUB 
BR 3$ GO TO 3$ IF NO 
NOP RETURN HERE IF 
ERROR ERROR NUMBER DEFINED BY PUT SUB 
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PS" BuPRoSRAA = 


- IMP a ;G0 TO 9$ IF ERROR WAS FOUND 
: MOVB SRMCSI,PUTINX ;SETUP TABLE 
MOVB S200 AT NX+1  : WRITE TeRMLIRTg 
MOV G0, RMCS1O al 1 TP BUFFER = PAKACK!GO 
aR fe’ G0 TO ui TEN fl n 
on Tr 
ss: i OER TRF 
: ;WAIT FOR COMPLETION 
JSR PC, GET os to ol STERS VIA GET SUB 
Fee ‘ ; IF ERROR 
ERROR “ERROR DEFINED BY GET SUB 
a BR 9S >SKIP REMAINDER OF TEST 
. JSR PC, PRIERR ;GO CHECK FOR PRIMARY ERRORS 
BR 6$ GO T F NO ERROR 
aco ape! eros eae 
aa BR 9s” :SKIP TO EET 
; ISR PC, ACKSTS ;G0 VERIFY PACK NOW 
NOP ; RETURN lene te wn 
ERROR ERROR # Der INED BY ACKSTS SUBROUTINE 
ISR PC, a(SP)+ *GO BACK FOR MORE ERROR CHECKS 
BR :SKIP TO NEXT TEST 
7$: 
JSR PC, SECERR ;GO CHECK FOR SECONDARY 
BR *GO TO 9$ IF NO ERROR 
NOP ; RETURN IF ERROR 
ERROR *ERROR # DEFINED BY SECERR SUBROUTINE 
= JSR PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 
3 HLEREREERLALAEKA RSLS LSEL ERK ERAPERELELERAEK EERE EE SERRE LER ERE EE LE 
:&TEST 13 RECALIBRATE TEST 
oo REESE ERSERRSREAKERERASRSRRAAAR KARR RARA AAA RA AAA RARE A AAA AAS 
+6713: 
SCOPE ;SCOPE CALL 
NOP START OF TEST 
HOV #1, STINES LOAD ITERATION COUNT 
se MOV 81S, 
, Mov SSTACK, SP j INITIALIZE STACK POINTER 
MOV at ate Ri FRI) = me Be ING TESTED 
MOV #13, STESTN >:SET TEST NUMBER IN APT MAIL BOX 
ISR pc, tS *PREPARE DEVICE FOR TEST 


SEQ 0109 


000137 
ee 
ta 
oe 


Be Sas 


Era EEE Eres esc rece EE 
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013466 
045674 


DOJ 
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TEST 


5 
3 


13 RECAL IBRATE 
.WORD OS0020 ;TASK DESCRIPTOR 
BR cs GO TO S$ IF NO ERROR 
NREOR i Bao FEES HE, BFFs rene CBP ORSTPRE SUBROUTINE 
i IMP 10S 360 TO 10S IF ERROR WAS FOUND 
a MOVB = SRNCS1, PUTI ;SETUP PUT INDEX TABLE 
MOVE 8200 PUTINN “mmede TERMINATOR 
MOV BRECHL 10, RCS Aiea, UTE * RECAL!GO 
ISR PC, 
BR 6$ G0 To 6$ 
ERROR Te BY Sanit SUB 
10$ GO TO tf 
6S: ISR PCG TsTS 
JSR pe Sinout 
ISR PC, GE te Teo REG Covet Eon VIA GET SUB 
BR 7$ G0 To 7$ If NO 
NOP ; ee neh oY crt 
ERROR *ERROR DEF BY GET SUB 
ul IMP 10S G0 T0 168 I ERROR HAS FOUND 
5 JSR PC, PRIERR ;GO CHECK FOR PRIMARY ERRORS 
BR BS G0 TO sr NO ERROR 
ERROR = sei Eker # b (EEE HE ERR Eh PRIERR SUBROUTINE 
a IMP 10$ — 60°10 108 IF ERROR SOR URS FOUND 
: ISR PC,RCLSTS ;G0 VERIFY IBRATE OPERATION 
BR 95 F NO ERROR 
ERROR INED BY SUBROUT INE 
ISR PC, a(SP)+ ERR Bo cre DEE rep LeROn Cheek 
ne IMP 10$ 560° TO 10S iF ERROR WAS FOUND 
, JSR PC, SECERR GO CHECK FOR SE ERRORS 
BR 10% js 79. 108 IF F NO ERROR 
INED BY INE 
SB reac SCE PRC PLP 
H HAVRE LLSLLRPLSE SLES LESELAE RSE LELERAEREERE SARE SERS RLS REL ERE 
‘itesT 14 ABORT RECALIBRATE TEST 
; i aeeeniaes EGER GEG EGER E RARER RA ERASE REAR RARER RHEE REESE 
SCOPE ; SCOPE 
NOP ‘START OF TEST 
MOV #1, STIMES *LOAD ITERATION COUNT 
MOV #1$, SLPADR 
“ MOV #15; SLPERR 
. MOV SSTACK, SP s INITIALIZE STACK POINTER 
MOV SBASE RO : 
MOV TSTQUE, Ri (RL) = DEVICE BEING TESTED 
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000014 001226 #14, STESTN ;;SET TEST NUMBER IN APT MAIL BOX 
PC, TSTPRP DEVICE FOR TEST 
ge4is0 ; TASK oe ScrIPT 

-GO TO 8$ IF NO ERROR 


Sa Sea? 
ERROR 8 NED BY TSTPRP SUBROUTINE 
1S$ O 1SS IF ERROR WAS FOUND 


Spur oe rT 


: 
e 
Be 


oO 
= 


DENSHUNESSRD f 


aeTSIROIEOW GION GelEEN 
e 
38 
sta 
g8 a S2ysss eee 498*54 © 
Pa 
a 





001340 11S: 


020000 
Ae or 12S: 


sia iisdasaasannnamaataeaqaageannagaas 





Heat ae at at at as 
> 





137 014010 ce IMP Ss 
o4so42 “a PC mene 
BR 148 
NOP 
ERROR 
ae ef 
137 014010 ae IMP 1s$ 
ike 060712 : ISR PC STCORVSTS 
NOP 
be ioe ae 
6 ates 014010 JMP 1s$ 


1415: 





55 


aT 
£MOO 


<i ie Ss 
S : 





Bont fe 8 Jet fen fe ee fe fe Gee Fee fle Bis fhe ne peas fice rat bees fe Gast Beet fens ft fe Bet fe Des Bes tem Das on Pes he hee Bee Bs ee ee ee ee oe 


LLL ELLER ELL 
SSSA Sor caea cata cnce SONI 
ERESINSERLFSSPRESRERSS 


y WGe POs USF UES POs UGS UGS | 
Ay ve MESES LFV LIUEFU EST LIVESI FICS ICI IU 
+h + + +545 a4 a4 at yt att 
S ep part + 5 5 A 


S885 
: 
i 





FOS 
RACY SOC0G)_ 29-J.-77 it 132 PAGE 109 


JSR 


ERROR 
JSR 
15S: 
ikTEsT 15 
téTis: 


1S: 


saageTaRgS AYRUSEE VPTULEY aye, Uaeee sae 


11S: 


— 


PC, a(SP)+ 


SEQ 0112 


tt 
IVC _RECALIBRATE TEST 


EEE EE hE EE 

a1 STINE fel Sra or Tes COUNT 
81S, SLPERR 
af INITIATE STACK POINTER 
Tee, ays Oevice ete TESTED, 
A 
85 é T9 6s IF _NO ERROR 

;RETURN A F 

ERROR ® DEFINED BY TSTPRP SUBROUTINE 
15S G0 TO 1SS$ IF ERROR WAS FOUND 
SOTA | HATE (UHRA OME 
80MD; RMMR1O (ROMO 
PC, PUT : WRITE An 
3 BOE we peor 

8 
15S pos Meir PRROR Les FOUND _ 
SRMMR 1, PUTINX 
8200, PUTINX+1 SPRITE WRITE PUMNINGTOR BYTE BYTE 
+ arn RMMR1 VIA SUB 
108 360 TO 1 F te 
15s HEAROR 15S IF DaROR BF OUN “= 
BSRMCS1, PUTINX TABLE 
SET iaso A RUST Snr ren «seo 
118 G0 TO iste nyt 

x RSS of oO 

15S -GO TO Ro Sf ERROR 
PC, GETSTS Tat FETCH 
PC’ TIMOUT ear FOR" 0 COMPLETE 





GO9 
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IVC RECALIBRATE TEST 
PC, GET 
128 
15S 


SEQ 0113 


NED BY SECERR SUBROUTINE 
NORE ERROR CHECKS 


3G0 CHE! 
ERROR 
GO BACK FOR 
os REMRGRRE GAGE EE EE EEE EEE EE RRR ERLE RE 


PO so 
FOUND 
Ps PE is rave 
Ee 
POINTER 
NG TESTED 
NUMBER IN APT MAIL BOX 


DURING RECALIERATE. 


“TGS TF NO. ERROR 
IF ERROR 


0 


INED BY PRIERR SUBROUTINE 
pt 
;GO 
a Cert 


Gore 
I 


19. 


ICE FOR TEST 
IF 
ERROR 
BY 
20s I 
ONE 
ONE 
INDEX 
TABLE 
REGISTERS VIA PUT SUB 


CALL 
OF TEST 


LOAD ITERATION COUNT 

: A 

. I 

° s 

ee TE’ 
DEV 
GO T 
yes 
;G0 T 
LL BE 
LL BE 
S TO 

I 


ty ee 
ite NOT 2, 


; RETURN 
ERROR 


ote itr ee a 


;60 TO Pr OER. 
eae 


oO 
— 
++> 


Bue! gi 
BEE tech as 
nas PUSS, 8 EL 


BOERS BERET RBEE entities! 


PC, a(SP)+ 
IRE RECALIBRATE TEST 
os REEREB BERGER REE RE REAR EER ES 
tet 


+? amt 
a 


cn 
8 pmere on 
Brac 


gBE BgDERPCYE Tight 


MACY11 30( 1046) 
JSR 


pesmi elon aly 
s « 8 £ eke 4 e 
: : me | B55 
& 8 S88 «8 sss 
ttl 206 ee ee 
pb: BY a SS 


GEees beseaonc® 0 cos Sarees Sener: 
g ENISIIEIN © RONEN 


DODOOOOOOOOUOOOCUUOOUUO SoDODDOOOOODODOOOoOOoOOOoOCoOoO 
Patetatatataysy=yats) oo00o 


SPETE EPA TST tee ea es ST A ttt tha 


hh hh th th wh oh hh tt wt ttt 
LSDESPUSPUSPUSIESDASPLSDESDASPASDESDLIDUSDLSDASDESDASDUSDASDASDASDASDESDASDASDASDASDASDESD LSD 
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_— 


Gao b= fas fae frac Beem bo bs fen free fee Fae fhe Bae fan feno fee fos feat fee fe-e Geen fie Po Dee eo fs > pe cs 


Fe 


Pee he 


Penson ane RMIMES sennnemnnees 


GoSVERLOO-ESSSEFHESSASSBLRRSBNS 
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Be pm Fe en a ee b= ee 


& G85 


2 


SVS VSS VS VSS VSS VV vesa SVS VSV VV V SVs Vs a SUVS VV TVs aT TEST ITNT IDFR EST FTI RLIT FRU PLT TUT 


ee Be be ae ee ae te ae ae ae ae ae ee ee me ae ae ee ee ae ae Be Be ee an an ae be Bn be Be be bn Pe me be be be == be = Pe Fe 


RRIBR BIS VaaZIN=“SSSLEHRLOR 


falolelelelelel=(sl=ls) 
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900137 O1ye1e IMP 1208 7i00 70 1208 TF ERROR WAS FOUND 
80S: JSR T FOR STATUS FETCH 
Te 3 a me SA SL es GET SUB 
Np RET TT FOF an 
snes IMP 1208  ;G0 TO ie IF ERROR WAS FOUND 
" «JSR PC, PRIERR ;G0 CHECK F eo PR MARY ERRORS 
BR 100s F NO ERROR 
INED BY PRIERR 
us, eae 
oan IMP 120$ G0 TO 120$ IF ERROR WAS FOUND 
" ‘JSR PC, RCLSTS ;G0 VERIFY RECALI OPERATION 
BR 110s G70 MILO JF NO ENR 
ber geruam fave Ie 
ERROR ERROR ® DEFINED BY RCLSTS SUBROUTINE 
ISR PC, a(SP)+ in BACK FOR CHECKS 
oe IMP 120$ ;GO TO 120$ IF ERROR WAS FOUND 
* ‘JSR PC, SECERR GO CHECK FOR SECONDARY ERRORS 
BR 1208 GO Tot F NO ERROR 
NOP ; RETURN Ay 
ERROR a DEFINED BY SECERR SUBROUTINE 
ian ISR PC, a(SP)+ G0 Error MORE ERROR CHECKS 
H KREREG REGGE ERE REE RRR RAR AERES 
titest 17 RECALIBRATE AT OFFSET 
; itize REEGKGEE RELEASES AERA R RE RER REESE AREER ARERR RAE RE 
900004 SCOPE ;SCOPE CALL 
000240 NOP START OF TEST 
1 900001 001206 MOV #1, STIMES LOAD ITERATION COUNT 
1 14640 O01122 MOV #1$, SLPAOR 
1 O14640 001124 se MOV #15, SLPERR 
1 1100 : MOV sSTACK - INITIALIZE STACK POINTER 
ere aes MOV aa HRDSUNIBUS Ss 
13701 001446 MOV TSTQUE.R1 *(R1) = DEVICE BEING TESTED 
1 000017 001226 MOV #17, STESTN ?;SET TEST NUMBER IN APT MAIL BOX 
004737 043046 JSR PC, TSTPRP -PREPARE DEVICE FOR TEST 
-WORD 050020 ;TASK DESCRIPTOR 
BR ss GO TO F NO ERROR 
NOP sRETURN HERE IF 
ERROR ERROR & Derren BY TSTPRP SUBROUTINE 
137 015104 i IMP 80S : 80$ IF ERROR WAS FOUND 
il 001533 — MOVB = SRMCS1, PUTINX male amin TABLE 
i 0015.34 MOVB 8200. PUTINX+1 RITE NATOR 
1 1 1376 MOV 8OFFSET!GO,RMCS1O 1 OUTPUT BUFFER = OFFSET!GO 
004737 044316 ISR PC, PUT ;CALL pul cue SUBROUTINE 
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DZRMCA - RNO3 FUNCTIONAL TEST, PART 1 
DZRMCA.P11 
5187 014730 OO04O4 10S GO TO 10S IF NO ERROR 
iG five Annu te oie hemearrling © POT Su 
1B AE WR osm mos ;00 7 
1 ; : TABLE 
Ht Rie Hie Spiess Ove SSASSBar tne) TaRITE TeRntNA TOR 
1 1 001376 MOV SRECAL!GO, RNCS1O =RMCS1 BUFFER = RECAL!GO 
1 1 044316 JSR PC, PUT . put INE 
1 14 BR 20$ G0 TO 
i 14774 ERROR Y* es BY Y Put oe 
21s 14 iporay 015104 a IMP 80S G0 TO olga" IF ERROR NROR Lins FOUND 
1 004737 043762 a JSR PC, GETSTS GO TO GETSTS SUBROUTINE 
iene 004737 oO446S6 ian ISR PC, TIMOUT ;GO TO TIMOUT SUBROUTINE 
1 le 004737 O44O46 : JSR PC GET ;GO READ REGISTERS WITH GET SUBROUT INE NE 
ies Hes ie sun f 
o : 137 015104 a IMP 80S BE TOS IF ERROR Lbs ons SeuNo. 
11 Ol o4so42 om PC, PRIERR :G0 oon FOR PRIMARY 
4 oO age ible fs Ea © 
14 O01 ERROR Sin DEFINE PRIERR SUBROUTINE 
1S O01 JSR PC, a(SP)+ HORE E 
i i 137 015104 a JMP go$ G0 TO IF ERROR i MS FOUND 
18 O01 737 osso0e2 ie | PC, RCLSTS ;G0 VERIFY phy: TE OPERATION 
1 BR 70% F NO ERROR 
1506 ERROR ERROR 8 INED BY INE 
ie poe TE scr (Pt PRTC RT BO 
1508 137 015104 a JMP g0$ GO TO 80S IF ERROR WAS FOUND 
15070 045674 " ‘JSR PC, SECERR ;GO CHECK FOR ERRORS 
150 BR go$ GO TO F NO ERROR 
55a OLE 104000 ERROR ERROR of EIE hep ee ceceen SUBROUTINE 
1B10e 736 ae ISR PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 
Bs ; TO erga oo aE Rresgeecemennereersenanmes 
36 15104 ; ° Sipnaaaaagyes opens Ste ce a Sata onaaperey sR aes) 
ta * SCOPE : 
151 NOP ;START OF TEST 
15110 12706 901109 HOY SSTACK, SP sINITIALIZE STACK POINTER 
oie OL 370) MOV TSTQUE, RI itRiD = eV I NG TESTED 
1 6151 1 001226 MOV #20, STESTN >:SET TEST NUMBER IN APT MAIL BOX 
S242 015132 004737 O43046 JSR PC, tSTPRP *PREPARE DEVICE FOR TEST 
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3 
8 


8 
8. 
a 


: 


got130 ; TASK DESCRIPTOR 


ust ; FOR PASS 2 ETCH 
Pie. it POINTS TO | INDEX TABLE 
arrene. (hs) 
8RMCS1! (R2)+ 

(R2)+ 


POT co 10 3b TF NO ERROR ee VIA PUT SUB 


; F ERROR 
: I PUT SUB 
3s aR AS -tsts : FoR STATUS FETCH 
z ISR PC’ TIMOUT ‘Ba Fi I TO COMPLETE 
PC, T 59 


I 
GE READ VIA GET SUB 
4§ G0 To 48 FHC ERROR 


SuuUNPRUGLLIE WN 


on eau ested of Ot 
. BR 21S : SKIP } OF TESTS 
, JSR PC, PRIERR ;GO CHECK FOR PRIMARY ERRORS 
BR cs -GO TO S$ IF NO ERROR ms 
NOP ; RETURN PERE IF 
ERROR ERROR & INED BY PRIERR SUBROUTINE 
ISR PC, a(SP)+ GO BACK FOR CHE: 
- JMP 2i$ ;G0 TO 21$ IF ERROR WAS FOUND 
; JSR PC, DRVSTS GO VERIFY DRIVE CLEAR 
BR 6$ GO T F NO ERROR 
NOP : RETURN 
ERROR ERROR ® DEFINED By _DavsTs SUBROUT INE 
JSR PC, 3(SP)+ GO BACK FOR MORE CHECKS | 
IMP 2i$ :GO TO 21$ IF ERROR WAS FOUND 
' JSR PC, SECERR GO CHECK FOR ERRORS 
BR 2i$ : GO et} oF No ERROR 
NOP RETURN HERE IF ERROR 
ERROR *ERROR # DEFINED BY SECERR SUBROUTINE 
A ISR PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 
5; LERRRRLLE LAA EL EEE LEER LL ESLER EERE EEE E REAR EAE EAE EERE REESE 
TEST 21 NOP TEST 
os RRR RE RAGE EE EE EEE EE EEE 
téT21: m 








FUNCTIONAL TEST, PART 1 


F 


23- 
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gs 
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ee Ee 
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8 
gy 


fe 


004736 
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001226 


MACY11 30( 1046) 
Tel TEST 





100$: 


110$: 


120$: 


Teton sp peeeeey & 


4 
3 


cc 4098 "E58 338" 


JSR 
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POINTER 


S(RI) = DEVICE BEING TESTED 
F pephinghs APT MAIL BOX 


703 IF NO ERROR 
THE OR one SUBROUTINE 
130 * GO 10 1308 IF ERROR WAS FOUND 
too, Purdie cu 
oar ‘yo 0 jou Put sRUTINE 
etree T_AN ERROR 
ares” 
ae pe 
a3 ora. Filer sup 


100 10 Selim fe oe 


130$ §;GO TO 1308 IF 
PC, PRIERR ;GO CHECK FOR ERRORS 
100s GO To" 1008 IF NO ERROR 

H 
vc.acsee Eat Peg NERS PY PRTER,SuRROUTINE 
130 ;G0 TO 130$ IF ERROR WAS FOUND 
PC,CMPERRSTS | ;CHECK ANY ERRORS NOT MASKED 
NOTMSK > MASK FOR RMER 
OPE MASK F pa 
110 01108 I IF NO ERROR 

Be eee a 1S. SUBROUTINE 

PC, a(SP)+ Eine BACK POR. HORE 
130 60°10 1308 IP ERROR HAS FOUND 
PC,STCDRVSTS § ;GO CHECK FOR IN DRIVE STATUS 
1208 G0 To F NO 

TERROR # HED BY STCDRVSTS SUBROUTINE 
PC, a(SP)+ :G0 BACK F CHECKS 
130s ;G0 TO 130$ IF ERROR WAS FOUND 
PC, SECERR 360 CHECK FOR SECONDARY ERRORS 
130 I F NO ERROR 


; RETURN "9, 
ERROR # DEFINED BY SECERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 


SEQ 0117 





LOS 
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130$: 


 REKKESSSRAA RELA SAAR EARAREESRA RARE RRARAALRRA ARE RESRA RARE RA RARER 
TEST 22 SET TEST 


SE He SE SE SE SE AE SE SE HE SE SE SE SEE HH a HE HE HE REERRLLL ERLE EE EELELES 


tét22 
ea hula POINTER 
Se, Ey s ore, 0 


DEVICE. FOR TEST 





001276 
Sojass on1226 


GO TO 40S IF NO ERROR 
a iano er hen pre 


8200, PUTINKeL jae Ee 
BOFFSET!G0,RHCSIO BUFFER = OFFSET!GO 


sit co 0 sR TO REPORT AN ERROR 
Boro "8 

100$ _;:GO TO 1 

pe tinout ie 

sos ‘oo wo gt eee Bee “Ula cer sue 


os co 10 aH Baath a 


PC, PRIERR ;60 CHECK 0 by 
OS Tr NO RO ERROR 
Ee ReMOUTNe 
1 ald pled S 
1 IF ERROR WAS FOUND 
RMOSI 


ot 
RMOSI, T pe ye FOR TYPEOUT 
#tCOM T 

3 





oS ee eee Seer Se gaeeeeee 
a 


-_ 
— 
<= 
rT 
wo 
| om} 
oO 


36000 DATA FOR Were 
Giewmost bestia eF 


= 

& 

3 
Se 





001142 RMOSI,SBODAT §;BAD DATA FOR TYPEOUT 
001 He BIC StCATA, SBDDAT 

16 100000 0011 MOV SATA, SCDDAT ;GO0D DATA FOR TYPEOUT 

1041 Sn ERROR 172 ‘ATTENTION NOT SET 

004737 061416 ss PC,CMPERRSTS | ;CHECK ANY ERRORS NOT MASKED 
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_ NOTMSK Tsk fon pad] 
a en oa ERROR ie BY Senden SUBROUTINE 
1 BE ARR xsi nace So Pirie 


91S: 


Ce srcuwvsts 360 CHECK oh to tee TP iD N RINE STATUS 


BBs 060712 


oo3e 
Re me 


1 
1 BR 
161 NOP ; RETURN A IF ERROR ws rat 
{ { FRROR PC, 3(SP)+ iennoR Ihe ERROR GreckS - 
16110 000137 016130 ats IMP 100s G0 TO 100$ IF ERROR WAS FOUND 
igity 737 045674 ——— PC, SECERR GO CHECK FOR SECONDARY ERRORS 

Bigiss pees hop SRETURN fiche te/ERROR ERROR 
16124 104000 ERROR ERROR # DEFINED BY SECERR SUBROUTINE 

Olé ee 004736 rae, JSR = PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 


3 © RKB HE EE EE EE EE REE H 
tETEST 23 GO/ATA TEST 


} itD5 Sunes HLRSESLELEAESRER ZS ERELAS LK EEKELSSL ARS RLHEARAEELAEER 
f 9 SCOPE OAL 
ay T sINITION POINTER 
MOV TSTQUE,R1 >(R1) = DEVICE BEING TESTED 
Yue 001226 MOV #23, STESTN ;;SET TEST NUMBER IN APT MAIL BOX 
5 JSR PC, TSTPRP -PREPARE DEVICE FOR TEST 
5 . WORD 54130 TASK DESCRIPTOR 
S446 BR 60 19 708 IF F NO ERROR 
aN oe ecrimw eve ir 
S44E ERROR ERROR # TE OR BY TSTPRP SUBROUTINE 
= IMP 180$ G0 TO 180S TP ERROR LAS FOUND 
I me sssaarynat se 


1 
001376 ee raT Go, RNCSLO T BUFFER = OFFSET!GO 
JSR jcALL Put 
BR :G0 TO ous 
i ha 
ERROR fen BY PT ou ‘SUB 


IMP 180$ _;GO TO is IF 
g0$: JSR PC, GETSTS ORR FOR STA STATUS FETCH 
JSR PC’ GET GO READ’ REG VIA GET SUB 


Ne ch ra 
ERROR I 
IMP 180$ —_;GO TO 1BERPOR IF ERROR 

001340 90S: BIT #8ATA, RMDSI s1S ATTENTION SET?? 
BNE 100$ :YES!! 





th ft = fo = = B= be 0 0 hb fh Bm be tt Be be ee te fen fe ba fee Pe f= pee 
. ‘ ‘ Bt ‘ 
+ + 


PUN UIUTIUTIUIUT 
TOrPrac r 
- Ay Addy Ab; = 
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bere. Bi7a7 boi 
077777 


1oai%e 


004737 061416 


1 





016550 
060712 
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Oe 
1142 
001142 


001340 


oali4 


MACY11 30( 1046) 
T23 A TE 


8 
ee 


110$: 


Pek 
ages WERE seri apPs TREY UG EE 


r 


B 
ee 


1605: 


nate! 14:32 PAGE 117 


SATA, SCDDAT G00 DATA FOR TYPEOUT 
Rest 58008 | BAD DATA FOR TYPEOUT 
ish ne sREPORT ATA NOT SET 
PC,CMPERRSTS | ;CHECK ANY ERRORS NOT MASKED 
a FS eR 
110$ 0 110s I OS IF NO ERROR 
Be ee ae CMPERRSTS SUBROUTINE 
PC, a(SP)+ in BACK FOR CHECKS 
1805 ;G0 TO 180$ IF ERROR WAS FOUND 
SRMCS1,PUTINX  ;SETUP PUT INDEX, TABLE 
#200 NX+1 im TE 
ah »RMCS10 = NOP!GO 
1208  ;G0 TO ! IF NO 


I 
ESE, REPORT. EBRD, 


180$  ;GO TO ise IF ERROR WAS FOUND 
PC, GET GO READ REGISTERS VIA GET SUB 
130$°  ;GO TO 1308 IF NO 
; F ERROR 
: INED BY GET SUB 
180$  ;GO TO 1808 IF WAS FOUND 
PC, PRIERR ;G0 CHECK tp PRINGRY ERRORS 
140s 40S IF NO ERROR 
j RETURN 
j ERROR cao PRIERR SUBROUTINE 
a(SP)+ EO bn CHECKS 
ist ; WAS FOUND 
#8 RMOSI SET?? 
; 
I BAD DATA FOR TYPEOUT 
StCATA, T 
T ;G000 DATA FOR TYPEOUT 
246 : ATA NOT RESET 


Pixels CK ANY ERRORS NOT MASKED 

MSK oe Pre 

1 FERRO NO ERROR 
regis meee opie, 
1 TO 1 ERROR WAS FOUND 


1 jeateh 


PC, a(SP)+ 


;G0 CHECK FOR IN HORT YS STATUS 
Eine eves SUBROUT INE 


SEQ 0120 
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1 000137 016550 ston IMP 180$ G0 TO 180S IF ERROR WAS FOUND 
1 737 O4S674 " ‘JSR PC, SECERR ;G0 CHECK 0 SECONDARY 
1 BR 1805 BOs IF NO EBRO ERROR 
1 NOP Ten 
1 i BAe BY SEC SECERR SUBROUT INE 
O1bS46 004736 ISR PC, a(SP)+ CKS 
: 1 180$: 
re 33 SEE 
55.3: ikTEST 24 WRITE ATA TEST 
553 PEAPRRERVRRERLSRESE ESSERE EARERE 
5535 O16550 téTEu: ie 
21 ee r : 
55,36 1 ; 001100 HOV SSTACK, SP : NITIALIZE ACK POINTER 
| : 
se flees Sle i my Fee, Re ne reer 
aa 1 01 001226 MOV 824, STESTN +: SET NUMBER IN APT MAIL BOX 
5543 (01 043046 ISR PC, TSTPRP DEVICE FOR TEST 
en flee ou iro ALSO" Task — 
1 BR 60 0. 70$ IF NO ERROR 
eye ot He gy 2 Be 
1661 104 ERROR BEROR 8 INED BY TSTPRP SUBROUTINE 
S548 Leb 137 017114 oe IMP 1S50$ ;G0 TO 1SOS IF ERROR WAS FOUND 
1p tb 112737 000000 001533 “  MOVB = @RMCSI1,PUTINX SETUP PUT INDEX TABLE 
c551 01 ie? 3? 000200 001534 MOVB 8200, PUTINX+1 :WRITE TERMINATOR 
! 01 30 900015 001376 HOV SOFESET! G0, RMCS1O = RMCS OUTPUT BUFFER = OFFSET!GO 
ice) BoO4o4 BR eo$ = ; G0 TO obs 4F eu 
ieess | Spsoce NOROR Se, TOP TNeD BY PUT Su 
ees? 1b6S¢ coai37 017114 ie” isos co 10 1608 IF Era OUND 
SS 043762 gos: sR, GETSTS OR STATUS FETCH 
a4 eS Beg a 00 10 SiR, a 
166 04000 ERROR BEROR DEFINED BY coy 
167 017114 IMP 150$ _;GO TO eran IF ERROR 
i <7 100000 001340 90S BIT eat , RDS 3188) FTON SET?? 
ier 1 1142 MOV T BAD DATA FOR TYPEOUT 
ce ert cog oniiag = RS SDD 
16 0 100000 001140 MOV 8ATA, SEDDAT ;G000 DATA FOR _TYPEOUT 
1 i i7e ERROR i7¢ ‘REPORT ATA NOT SET 
1 16102 000001 100$: MOVB 1(R1),Re sR2 = ATTENTION BIT 
ers bier 177400 BIC 8tCATNMSK, : SIGN ION 
1B hie 1 001414 MOV R2, RMASO ;PUT RMAS BIT IN OUTPUT 
5574 016 112737 000016 001533 MOVB § #RMAS. PUTINX HRT REGISTER INDEX IN TABLE 
2275 16 iie7a? 000200 001534 MOVB 8200, PUTINX+1 WRITE TERMINATOR 
16 044316 JSR PC, PUT -GO WRITE REGISTERS VIA PUT SUB 
5577 016772 BR 110s GO TO 110$ IF NO ERROR 
5578 016774 NOP ;RETURN HERE IF ERROR 





ererneeernrnepennnenernenrerrrerenimananmnnnnnnnnnnay 4) 
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Pil 
pur sua 
Biro ABs orzis A Fe’ isos co 10 180s fF 
O44046 . VIA GET SUB 
i 1 boon apr Sage ow PREPS 
i if NeROR Sere OEE TneD BY cer BY GET SUB 
16 iota 017114 wi IMP 1S0$  ;GO TO ine IF ERROR WAS FOUND 
} o4so42 : ISR PC, PRIERR ;G0 ee io PRIMARY 
130s NO ERO ERROR 
i 04000 SRR: i eno At w ete I TNE 
1 Gore ISR Pc. g(SP)+ 260 BACK FOR ae, ene 
137 017114 IMP 1 :G0 TO 1S0$ IF ERROR WAS FOUND 
1 001340 1308: BIT # TA, RMDSI i 15 ATTENTION RESET?? 
i ree BEQ 140$ sYES!! 
1 001340 001142 MOV RMDSI , SBDDAT BAD DATA FOR TYPEOUT 
1 001142 BIC 8*CATA, SBDDAT 
1 1140 CLR SGDDAT ;G00D DATA FOR_TYPEOUT 
itr 104247 len ERROR 247 REPORT ATA NOT RESET 
1 737 061416 " ‘JSR PC,CMPERRSTS | ;CHECK_ANY ERRORS NOT MASKED 
17100 0 *MASK FOR RMERL 
17102 WORD 0 *MASK FOR RMERC 
1710 000403 BR 1S0$ GO TO 0 1508 IF NO ERROR 
OiF1i8 1 ERROR Py FE IE BY CHPERRSTS SUBROUTINE 
17112 004736 ISR PC,a(SP)+ GO BACK FOR MORE ERROR CHECKS 
017114 150S: 
gs BYUEPLEA SERS ESHRLEE HERRERA RRERE 
:KTEST 25 ERROR/ATA TEST 
© REAARERSRERRRERERRRRRRE EERE ES £% 
oi7i14 téT2s: 
att popead ROP . ae test 
174 012706 001100 HOV aSTACK, SP : INITIALI STACK POINTER 
17S pte pone MOV STQUE RI thd = 06 Sin TESTED 
17134 012737 000025 001226 MOV #25, STESTN : SET NUMBER IN APT MAIL BOX 
171 043046 JSR PC, TSTPRP -PREPARE DEVICE FOR TEST 
GIFiN6 aie HRD 954130 TASK DESCRIPTOR un ik fe 0 i 
pt7 130 pesad NOP ; RETURN HERE o ERROR 
017154 104000 ERROR “ERROR ® DEFINED BY TSTPRP SUBROUTINE 
oft 000137 017506 ee IMP 160$ ;GO TO 160$ IF ERROR WAS FOUND 
17162 112737 000000 001533 “ MOV3-~=—sBRMCS1,PUTINX  ;SETUP PUT INDEX TABLE 
171 1 001534 MOVB 8200, PUTINX+1  :WRITE TERMINATOR : 
17176 00001$ 001376 MOV SOPrSET! G0. RACSI 6 BUFFER = OFFSET!GO 
1 044316 JSR PC, PUT jcALL Put I 
17515 DoOeNG Sop bos 100 70 oe Toa eRe REPORT AN ERROR 
pists 104000 ERROR EEROR NOHGER SEF INED BY PUT SUB 
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phi 14:32 PAGE 120 SE@ 0123 


;60 TO 1608 IF we WAS FOUND 
FOR STATUS 


pe, cersté VIA GET SUB 
st 0 10 SS neh oy et 
go 10 uF Beate fo" 


ah, Rost 51S ATA SET?? 
cea ; ‘hata FOR TYPEOUT 
sara. ScDont :G00D DATA FOR TYPEOUT 
172 REPORT ATA NOT SET 


REPORT ERROR 
isos co 1o 1iSe MESS SE Pieper Pur Sue 
sen HUTT RAT SETUP PUT I TABLE 

ye SMRITE TEamIneTOR aa 
ret "00 To siete si 
BF IND BY PUT SUB 
160$  ;GO TO 1608 IF WS FOUND 


1308 ;co 10 108 PME 


RETURN HERE IF ERROR 


NED BY GET SUB 
GO TO gee PEROR les FOUND 
SCA, RNDET 318 078 STILL Wieser? 

fos’ 
SATA, SGDDAT GO0D DATA FOR TYPEOUT 
RMDS!. SBODAT BAD DATA FOR TYPEOUT 
8#CATA, SBDDAT 
250 ATA SHOULD NOT RESET 
PC,STCORVSTS § ;GO CHECK FOR IN DRIVE STATUS 
1505 -GO TO 1S0$ IF NO ERROR 

; RETURN IF ERROR 

“ERROR ® DEFINED BY STCDRVSTS SUBROUTINE 
PC, a(SP)+ GO BACK FOR MORE CHECKS 
160$ ;G0 TO 160$ IF ERROR WAS FOUND 
PC, SECERR GO CHECK FOR SECONDARY ERRORS 
1605 -GO TO 160$ IF NO ERROR 


PC, a(SP)+ 
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SEQ 0124 
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y i 
Rar 
| 
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‘a. 
7 


oO 
Be iia 


SHEE 
IN APT MAIL BOX 


NG TESTED 


faut 
TIAL IZE STACK POINTER 


fi 
ung 


a aa 


)=s 


ACK, SP 
a, 


PROGRAM INTERRUPT TEST 


BSBEBE 


+ s FELEELEELEEELELE SELES 


t§ 


TEST 26 
T26: 


RRR OE bs 


I 


;G0 TO 210$ IF ERROR WAS FOUND 


DEVICE FOR TEST 
;GO0 TO 70S IF NO ERROR 


Prask DESCRIPTOR 
sBRROR ® 


a 
% of . . 
y Boze : HE Ges 
Sst hist op i be Bee 
he eer 
coe Socal Bia Seibigeth 
paiiseas © pitted NEE: cre 
ee 
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“heen 2 : rab Be, oF eon 
BEE ee Bos en ee BUSe8 gy 
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: 5 


zi 


Ryan Gueeeeenneee AREEers: 
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Te6 PROGRAM 


RTI 
110$: DEC 
BPL 
pTEMEOUT YF One 
1205: 
JSR 
BR 
NOP 
ERROR 
JMP 
130: 
JSR 
BR 
NOP 
ERROR 
JSR 
JMP 
140$: ERROR 
BR 
1S0S: CMP 
MOV 
RTI 
160S: 
JSR 
BR 
NOP 
ERROR 
JMP 
170S: 
JSR 
BR 
NOP 
ERROR 
JSR 
JMP 
180: 
JSR 
. WORD 
. WORD 
BR 
NOP 
ERROR 
JSR 
JMP 
190$: 
JSR 
BR 
NOP 
ERROR 
JSR 
JMP 
200$: 
JSR 
BR 


29-JUL-77_ 14:32 PAGE 122 SEQ 0125 
INTERRUPT TEST 


DROP CP PRIORITY 
Ra : TIMEOUT THE INTERRUPT 
. : ;RAISE CP PRIORITY 
VIA GET SUB 
Ta co Ee 
SUB 
210$ = ;G0 TO ibs IF FRO DEFINED ay Fouro 
PC, PRIERR GO CHECK FOR PRIMARY ERRORS 
140s GO 19. 140$ IF NO ERROR 
i: anne iER Fiat» eFrveD. By 7 IERR SUBROUTINE 
elds on 129,10 e108 IF EON Hrs FOUND 
180 
($P)+, (SB)4 sADJUST STACK 
: :RAI oP PRIORITY 
PC, GET GO READ REGISTERS VIA GET SUB 
170$  ;GO TO 10s IF NO 
eta eh ge sn 
210s _—;Go To alos IF FOUND 
PC, PRIERR GO CHECK FOR PRIMARY ERRORS 
180s -GO TO 180$ IF NO ERROR 
; RETURN IF ERROR 
*ERROR & INED BY PRIERR SUBROUTINE 
PC, 3(SP)+ GO BACK FOR ERROR CHECKS 
210s G0 TO 210$ IF ERROR WAS FOUND 
PC,CMPERRSTS  ;CHECK ANY ERRORS NOT MASKED 
Not! *MASK FOR RMERI 
DPE MASK FOR 
190 -GO TO 190S IF NO ERROR 
RETURN HERE IF ERROR 
“ERROR & DEFINED BY CHPERRSTS SUBROUTINE 
PC, 3(SP)+ G0 BACK ERROR CHE 
2ids ;GO TO 210$ IF ERROR WAS FOUND 
TCORVSTS § ;GO CHECK FOR CHANGE IN DRIVE STATUS 
bobs F -GO TO 200$ No EARDR 
RETURN HERE IF 
PC, a(SP)+ iE Bok pa 3 Recs — 
210s : :GO TO 210$ IF ERROR WAS FOUND 
PC, SECERR ;GO CHECK FOR SECONDARY ERRORS 
210s GO TO 210$ IF NO ERROR 
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I 
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RETURN HERE IF ERROR 
ES BACK FOR MORE ERROR CHEEKS 


JUUUUE 


RELLLE 


INHIBIT INTERRUPT TEST 


SEE 
TEST NUMBER IN APT MAIL BOX 


I 
= 


Steet OF TEST 
SINITIALIZE STACK POINTER 
OBevice Be Inc TESTED 


(R1) 
: SET 


001226 


ws , 

; as a : 
Ee ole 
: an ze - gs oie. = ee ae st 
a 
<. siseasgls = SEh geveNbaoed : 
Bad #2 Sea & 
&  .~-~22-~a ca o ae Eee 
Feet, eee. fo “Se 
Fe eS aS Bi * @ ot 
ie SecoveactS nent oe od SEE? 
pa berecpeapicessussesrenetansenarug SEs 
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020472 
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0000 
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Te? ~—s INHIBI 


JSR 
Mon 
1108: ow 
120$: MOV 
1258: bec 
RT 
130$: 
140S: ce 
RTI 
160$: rer 
BR 
NOP 
ERROR 
170$: ERROR 
1680S: nov 
2108: 
5s HEH 
;ATEST 30 
t$T30: 
ny 
MOV 
MOV 
JSR 
. WORD 
BR 
NOP 
ERROR 
JMP 
70S: nov8 
MOV 
i 
NOP 
ERROR 
JMP 
80S: ISR 
JSR 
JSR 
BR 
NOP 
ERROR 
JMP 
90S: 


29-JUL-77 ya PAGE 124 


T INTERRUPT TEST 


Nie CALL PUT SUBROUTINE 
1108 = G0 TO rigs t IF NO_ERROR 


NOnGeR’ BePINeD et PU Sue 


#205, R3 
8140S, (R2) ;MAKE PRIORITY < RMOL 
1258 
(SP)+, (SP)+ RO sUs ‘ ¥ TACK 
(SP)+) (SP)+ *ADJUST STACK 
#160$, (SP) 
PC GET at 1589 GO READ REGISTERS VIA GET SUB 
ERROR FINED BY Ge} BY Ger SUB 
sais ;SHOULD NOT HAVE INTERRUPT 
RS, 2(R2) 


HE HEE EAE HE HE HE HE HE HE HE SE HE HEE HH HH EEE 


TO CENTERLINE TEST 
42H HHH 


;SCOPE CALL 
: NTA ZE POINTER 
t R a SA Vice GEING TESTED 
+ = 
a In IN APT MAIL BOX 
a Hee DEVICE FOR TEST 
1 TASK oeitniry 
mus G0 TO 70S IF NO ERROR 
SRA TeFrhen ay Ts BY TSTPRP SUBROUTINE 
-_ SES IF ERROR HAS FOUND 
TABLE 


TINKe] are TERMINATO 


I 
WRTCIGO,RMCS1O ;RMCS1_OUTPU 


;G0 TO 
; TO REPORT 


bereri® To “OG Hii rf 
30$ : ;G0 TO yt eda 


1508 G0 TO 1808 IF ERROR WAS FOUND 


SEQ 0127 
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TO CENTERLINE TEST 
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T30 RETURN 








004737 o4sONe2 ISR PC, PRIERR ;G0 CHECK FOR PRIMARY ERRORS 
BR 100s 0. 1008 IF NO ERROR 
RR ERROR 
ERROR : # DEFINED BY PRIERR SUBROUTINE 
: ISR pcg (SP)+ GO BACK F' S 
: 1036 IMP 1 -GO TO 1508 I WAS FOUND 
eee 001340 100$: BIT 80M, RMOSI ; MODE OFF?? 
: BEQ 110% s YES?! 
5% 1140 CLR SGDDAT G000 DATA FOR_TYPEOUT 
00114 MOV 1, $B008T *BAD DATA FOR TYPEOUT 
5 1 00114 BIC 8tCOM, T 
42k ERROR OFFSET MODE NOT RESET 
ae? 100000 001340 110S: BIT _ §ATA,RMDSI Ms f ATTENTION SET ?? 
ic 01142 MOV T BAD DATA FOR TYPEOUT 
ps 01142 BIC ord Sweetie 
100000 001140 MOV TA, SCDDAT ;G000 DATA FOR TYPEOUT 
Sims ERROR 1 "ATA" NOT SET DURING RTC 
061416 * ‘JSR PC,CMPERRSTS § ; CHECK pary ERR ERRORS NOT MASKED 
. WORD NOTHSK sMSK FOR RAER 
Pain 130$ sis On IRE, F NO ERROR 
AGP RETURN, 1 ihe te ZRhod 
ERROR : ERROR 8 DEI NED BY CMPERRSTS SUBROUTINE 
ISR PC, 3(SP)+ GO BACK FOR CHECKS 
021036 sa IMP 150s ;G0 TO 1SO$ IF ERROR WAS FOUND 
34 060712 "JSR PC,STCDRVSTS § ;GO CHECK FOR CHANGES IN DRIVE STATUS 
Q4y BR 140s GO Tod F NO ERROR 
Sue HOROR RETURN FERE IE BY S SUBROUTINE 
ISR PC, a(SP)+ ERR per WERE MEER 
021036 a IMP 1sds :GO TO 1SO$ IF ERROR WAS FOUND 
045674 * ‘JSR PC, SECERR ;GO CHECK FOR SECONDARY 
BR 150$ GO To. I F NO ERROR 
NOP ;RETURN HERE 
ERROR ‘ERROR ® DEFINED BY SECERR SUBROUTINE 
aa ISR PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 
5 ee ee 
tHE READ IN PRESET TEST 
960 \ } _eeeeeneeneestnesneansnnensensnnsaneaneaeneeaee 
1 000004 SCOPE 
1 NOP jSTART OF Test 
1 i 001100 MOV SSTACK, SP INITIALIZE STACK POINTER 
i t SOLE MOYO TSTOUE RI POTS e DEVICE BEING TESTED 
ee {pee 1 000031 001226 MOV #31, STESTN ‘SET TE SEV ROER IN APT MAIL BOX 
5969 021064 004 043046 JSR -PREPARE DEVICE FOR TEST 
5970 021070 054130 . WORD Bsais0 TASK DESCRIPTOR 





J10 


FREAD T DIN PRESET Tes 


SEQ 0129 


RIP 


140$ IF NO ERROR 


;ERROR # DEFINED BY CMPERRSTS SUBROUTINE 


;G0 TO 1 F NO ERROR 
fore TE EO SUBROUTINE 


;GO TO 70$ IF NO ERROR 
jt a 
I 


3 
; : ; 
5 “s , Se eS cee 
sy 0g rely Bre fas fo Bee Oe 
7. ee ee BR 
5 GBs. =0.8 . % bss Peat os aos aoe ie 5 
a E stulguiorele g bis ateentesetace S02 bs 
z sa e ° 2 2 = 
+ oa on i 
Ne esite-one 8 8, 8 oe : a & 
3 eeee pe a a ee 2 
‘ S PEreeg: rites Boe 2 oS sapeSesetegsenerss Joes 
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Sob SESESSSEREARRERODEADEL Bg bEDREUOSEDGESEDgaNE KES,be 
‘ ‘beige Sheth a he 


1108: 
1208 
30S 


- ees a eG" - 
: Saas ot ee 
ae 
2 & SF 8 88 888 8 8 
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021420 
060712 


021420 
045674 


001100 
1276 


043046 


021736 


001226 
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T31 READ IN 
JSR 
108; JMP 
* ‘JSR 
Men 
JSR 
JMP 
150S: 
JSR 
BR 
NOP 
oR 
160S: 
5 HEE 
ae 32 


ee ips it uh ess 


29-JUL-77 14:32 PAGE 127 
PRESET TEST 


PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 
160 ;G0 TO 160$ IF ERROR WAS FOUND 
PC,STCDRVSTS § ;GO CHECK FOR CHANGES IN DRIVE STATUS 
150s igre te" F NO ERROR 

i eal Ein INED BY STCORVSTS SUBROUT INE 
GOS Con 10 bot if Tes FOUND 
PC, SECERR ;GO CHECK FOR SE 


160 seen ite Tol i ENO ERROR 
Pk Pon NORE ERROR CHECKS 





SINITIALIZE STACK POINTER 


ae, nea iN APT FAIL BOX 
{Es TE eye 


;GO0 TO 70S IF NO ERROR 
CRAs er ico gy Torpee umnauT ie 
ERROR WAS FOUND 


140S 0 140S I 
#RMCS1, PUTINX TABLE 
BeOO,UTINGL an ru TO, 
SOFESET!G0, =RMCS1 OUTPUT BUFFER = OFFSET!GO 
B0$ ‘00 TO ay age 
Stale Put oe 
VIA GET SUB 
G0 TO oie rh IF Re ER i 
AAR SUB 
140s ;G0 TO ABE caro DEN 
PC PRIERR GO CHECK FOR PRIMARY ERRORS 
10s -GO TO 100$ IF NO ERROR 
RETURN HERE IF 
*ERROR # DEFINED BY PRIERR SUBROUTINE 
PC, a(SP)+ GO BACK FOR MORE CHECKS 
140 ;GO TO 140$ IF ERROR WAS FOUND 


SE@ 0130 





L10 


29-JUL-77_ 14:32 PAGE 128 SEQ 0 
TEST 131 


fs 


o 
tom 
ar 


;OFFSET ON?? 

'BAD DATA FOR TYPEOUT 

:0000. DATA FOR, TYPEDUT 
QP REST OF TEST 


CYLINOER 


‘sere ete TABLE 


0 10 TE EEE 


RETURN IF 
‘ERROR NUREER DEFINED BY PUT 
G0 TO 140S IF ERROR 


GO READ REGISTERS VIA GET SUB 
G0 TO igs IF NO 


140$ __;GO TO 1408 IF Ted Y Get SUB 
80M, RMDS! ips SET peer Ta 
RMDSI,SBDDAT  ;BAD DATA FOR TYPEOUT 
81COn SBODAT 


t ;G00D DATA FOR TYPEOUT 
253 WRITING RMDC DIDNT CLEAR OM 


beat fees fe be ft = bee 
wo 2 
o 


+ 


Soo 
+ <4 4 4¢ 


J 


+ ¢ ; +44 
Be Bee be hee pa BS ee fee ee fe ee ee Po Se 


Ea 
spetugge "9 


TNeBoe 
= 
genseage"s 


140S: 


s PERKS EEG RRS RARER A RARER RAR AAELELAE 

hte TEST 33 ILLEGAL FUNCTION TEST 
i a preammmece reenter taaamaiaamtaieeremenicatenceemtats 
> 


Hint Gr TEST POINTER 
: fous 55 


FRI) = DEVICE BEING TESTED 
t SET TE IN APT MAIL BOX 


;PREPARE DEVICE FOR TEST 


TASK DESCRIPTOR 
G0 TO S$ IF NO ERROR 
RETURN MERE IF ERROR 
‘ERROR # DEFINED BY TSTPRP SUBROUTINE 
TO 110$ IF ERROR WAS FOUND 
; SETUP FOR STATUS 


100 TO 2h Hien Ene t 
URN HERE IF ERROR 

NUMBER DEFINED BY SUB 
110$  ;GO TO 1165 IF ERROR WAS FOUND 


ci See Se 


PEPE PPP SPOS PSSST Ss 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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p10 
y 
3h 022032 112737 00024 
143 Qe¢ 1 
144 Oeet 1 
id 16 
47 TBs6a9 
137 Jeesce 
112737 000024 
i537 Gorao1 
ee 044316 
1 


LEB SSBIRRASHABISIIeaZIn~SSSCEHIOR-SSSVKRLONH BSS 


RRR RAR 
SESS IIR i as 
BERRA aS 
PERSP ESSN : 


PEPE CONS ONS SSS CSS GPP OPK PSSST SSK CSS SKK KKK wr 
Pm ee me et fe eB bh 0 et be eb bh he be be = ee Be ee oe 
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T33 
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ILLEGAL FUNCTION TEST 


ely aia MODE AND DIAGNOSTIC UNIT READY, DIAGNOSTIC ON 


Hove 
MOV 
Ny 
BeROR 
JMP 
30S: 
MOVB 
MOVB 
MOV 
JSR 
BR 
NOP 
che 
3S$: 


33 


SRMMRI,PUTINX  ;SETUP PUT INDEX TABLE 
8200 »PUTINNS 1 | WRITE TERMINATOR BYTE 


Hi DR nt G0 tne, Are VIA SUB 
30$ GO TO IF ho ee 
' NoeceR beF ERED BY PUT SUB 
110$ GO TO 110$ IF ERROR WAS FOUND 
CSOT RANT SORE ‘aedieRen ee 
BORD! MUR NOC, RRMA ' MUR! MOC 
PC, PUT G0 WRITE yh VIA tied 
358 :G0 WIT IF NO 


1108 ee we bee FOUND 


SET VOLUME VALID BEF mL ISSUING ae i ks Rees Td TESTED 
POT i 


MOV 
JSR 


: o 


wo 
— 
w 
2a 
> 
- | 
-_ 
~~ 
= — 
So 


a Pia Fa PUgESEEESESOCTE 


aureut BUFFER = PAKACK!GO 





T_AN ERROR 
iBeryieD BY PUT SB 
FOUND 


; tage FUNCT TON CODE IN BUFFER 
CLEAR Brox SSDRESS 


RMOCO . * CLEAR CYLINDER ADDRESS 
SUTTER tARIFE RE ISTER INDEX TABLE 


ae 


~~ = © © © 


;GO WRITE REGISTERS VIA PUT SUB 


TO F NO 
“TAclin YSFe TF ERED 
-GO To 1108 IF , Hee F 
t “pAIt FOR 6 TO REET 
°GO READ REGISTERS VIA GET SUB 


GO TO 60$ IF NO 
>RETURN HERE IF ERROR 


% 


3 
A 
2 


3 
Ro 


B 


SEQ 0132 
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he Se | 
+ +++ 
VAC 
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T33 ILLEGAL FUNCTION TEST 


ERROR -ERROR DEFINED BY GET SUB 
a IMP 110$ ;GO TO 110$ IF ERROR WAS FOUND 
Isr PC, PRIERR ;60 CHECK F FOR PRIMARY ERRORS 
70$ GO TO 70S IF NO ERROR 
NOP ; RETURN IF ERROR 
ERROR “ERROR # DEFINED BY PRIERR SUBROUT INE 
ISR PC (SP)+ :GO BACK FOR MORE 
IMP ;GO TO 110$ IF 
70$: MOV rr ),SGODAT ter ENTRY FROM FUNCTION CODE TABLE 
BIC atc 
HOY Rr i T  ;BAD DATA FOR TYPEOUT 
cr F Sonat : s8.fh ILF STATUS CORRECT? 
ERROR 254 REPORT INCORRECT ILF STATUS 
Foy «PAR 
80S: (R2) , SGDDAT 
BIT SERR RGGI ;HAS AN ERROR DETECTED?? 
He A T Mee ATA SHOULD BE ON 
90S: +cat T 
MOV I $800AT ——-«; GET DRIVE’S ATTENTION 
BIC at A, $8008 
MP T; T 51S_ATA STATUS 0K? 


ewe 
a 


INCORRECT ATA STATUS 
GO TO NEXT FUNCTION CODE 
DONE? ? 


8 
% 
2 


1008: 


sILF76,Re : 
BLO 110$ *YES i! 
1108: 10$ TEST NEXT FUNCTION 
+ SEEPS XSFSAERESE HLS RSRSESSRSSEREL SE EREL ARERR E GEEZ ESLER EEA ES ERK EEE 
‘TEST eS) INVALID COMMAND TEST 
EE TT Pr Le, 
NOP | iStaet 
ay Serer, :INITI a Tack POINTER 
MOV T ( 
my Pe, a's We TESTED ay 
JSR TPRP DEVICE FOR TEST 
ior pyodd ; TASK oeScrIPT " Ag 
F Paton _— 
ERROR ERROR Bib BY TSTPRP SUBROUTINE 
IMP i 9° 19 7hd0s IF ERROR WAS FOUND 
SS: 15k 31s ;SETUP FOR ST 
10S: : 


JSR PC CNTCLR 


poe GTO OR TR HERE TF ERROR 


Bll 


SEQ 0194 


2: hot head pet ae 
ae = aa zx = x 
Bitte eee Li PERE 
a ee 
2 
 & | aa ots » HES © Seleaereis 
- e = 35a S . Lis eee 
at oe oor 
os plies cli © 5 Seti oh 
=e Ee f_feeate orem bee UEpanin COC eee ES SERNT BEE 
ge OB s g 38 pos 
98 8 
8 88 


f 
1oogo 00 
Bi 
316 
ees 
044046 
023246 


f = Ebak 
EE SS SSNS ESE LE 
ES SCANS Feeders 


Se ju oy 13533" oad 
12 Oools? 023246 


RMO3 
Pil 


16 






PE RSRRRRGRRE Tae eEENSORURnEnnerrnEererenceconceenoes 99 


TIONAL TEST, PART 1 ores ) -77 14:32 PAGE 132 
Sue? 13: STWALIO COMMAND TEST hg 





o4so4e JSR PC, PRIERR ;GO CHECK FOR PRIMARY ERRORS 
BR 708 182. 19 F NO ERROR 
NOP jRETURN F 
aos ERROR ae neaneh iE a DEFINED BY PRIERR SUBROUTINE 
it 023246 Tie 11 nog COTO Ti I WAS FOUND 
16237 066 001140 70S: MOV FNCOTB(R2) , SGODAT GET ENTRY FROM FUNCTION CODE TABLE 
1b7777 001140 BIC stCIVC, T 
1370 001142 NOV RHER? T  ;BAD DATA FOR TYPEOUT 
ib 01142 I at BODA 
; 1140 0011 Cre : 15. IVC STATUS CORRECT? 
ie ERROR 21 REPORT INCORRECT IVC STATUS 
001140 80S: MOV (R2), SGDDAT 
te ree roe BIT yest sHAS A ERROR DETECTED?? 
fete 499909 po1149 BIR saTA T *YES - ATA SHOULD BE ON 
1140 90s stcat T 
1 001142 MOV I GET DRIVE’S ATTENTION 
O01 Lue BI 8tCATA, T 
; 1140 00114 CrP SGODAT; T 51S ATA STATUS 0K?? 
isp ERROR eS INCORRECT ATA STATUS 
oo0002 100$: ADD 82, Re ;G0 TO NEXT FUNCTION CODE 
000076 CMP sILF76,R2 ONT? 
1 BLO 110S S is 
000137 022600 Fat JMP 10S T NEXT FUNCTION 
gs Ch Sc ett eb BE Do IB BET it the 
:RTEST 35 INVALID ADDRESS ERROR TEST 
; pegs reap ere Cnn: ¥en RTE ECN Ins eskreenne- 
"SCOPE ; 
NOP 3ST OF 
001100 MOV SSTACK, SP * INITIALIZE STACK POINTER 
001276 MOV SBASE : IBUS ADDRESS 
001446 MOV TSTQUE, RI *(R1) = DEVICE BEING TESTED 
00003S 001226 MOV 835, STESTN > SET IN MAIL BOX 
043046 JSR PC, TSTPRP -PREPARE DEVICE FOR TEST 
ORD gydooo TASK DESCRIPTOR ‘ voll eens 
a RETURN gee Tr ERROR 


ERROR § DEFINED BY TSTPRP SUBROUTINE 


Gn Scans Sa 
% 


ee ss JSR $108 STS — Fé statues - Mceatan Dredd rte 
000000 mea MOV NOP, Re 
053210 “ ‘JSR PC CNTCLR Jo 
NOP “RETURN Niere F ERROR 
ERROR NUMBER DEFINED BY SUB 
000137 024036 IMP 1108  ;GO TO ibs TF IF ERROR WAS FOUND 





20S: 





SEQ 0136 


Ereon 


Vv 


» DIAGNOSTIC ON 


tGRIYE Teledtaton Byte 


1 


1) 10 ais IF ho 


tERROn MUPGER DEFT 


360 TO 1108 IF 


; RMMR1=D0MD 


’ RMMR1O 


S500, PUTT] 
80ND 


Bigbet EEonasee 


;SET DIAGNOSTIC MODE AND DIAGNOSTIC UNIT READY 


; CYLINDER 
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—- Brethren i, 
ae ne suuerereetnetits Sas 
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i ne — 
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8 
: 


% 


q 
% 





SE a 


Snese 


Seales 


cope 





peesens 


He 


$SSSSEEE/EIEEAEIIGINIAUIDII UIE IO SNTREEUERRES 12 


is dines SS 


S24 SY a a 


Ell 
UL-77_ 14:32, PAGE 134 SEQ 0137 


*ERROR DEFINED BY GET SUB 
110$ :G0 TO 110S IF ERROR WAS F FOUND 


PC, PRIERR ;G0 CHECK FOR PRIMARY ERRORS 


? 
F 





70% 79. ERROR 
sRETUIN wa 
oan Loy A: IND BY PRIERR SUBROUTINE 
f ay Tos if ERROR HAS FOUND 
en Ba (R2) ScOOAT GET ENTRY FROM FUNCTION CODE TABLE 
1 ;BAD sama FOR TYPEOUT 
115. fe STATUS CORRECT? 
217 “REPORT INCORRECT IAE STATUS 
TBC RE), SGODAT 
8ERR, RMDSI sWAS AN ERROR DETECTED?? 


:NO!! 
YES - ATA SHOULD BE ON 


= 
a 








ROST,§8008T | — ; GET DRIVE’S ATTENTION 
SGDDAT;SBDDAT  ;IS ATA STATUS 0K?? 
100$ sYES!! 
255 : INCORRECT ATA STATUS 
a Re ;GO TO NEXT FUNCTION CODE 
sILF76,Re : DONE? ? 
1198 :YES #8 
1 T NEXT FUNCTION 
SERRLRALLEE 

WRITE LOCK ERROR TEST 

MH HEHE HE HEHEHE EE EEE 

tSTART OF 

BSTACK, SP jINITIAL sooner 


Peru AX (RI) ) in TED 
Teel, | Teese BPR om 
GOOD; TASK neienieron DEVICE FOR TEST 


;RETURN FERE TF ERROR 


“ERROR # DEFINED BY BY TSTPRP SUBROUTINE 
19 rides IF ERROR WAS FOUND 
TS ; SETUP rin’st 


PC 
20$ GO TO 20$ IF NO ERROR 
RETURN HERE IF ERROR 





F1ll 
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TE LOCK ERROR TEST 


SEQ 0138 


1 
I 
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DZRNCA - RNO3 
DZRMCA.P11 


2 roveoeveperrrecvereecreasaazy 


PH OTH ESA de 

ee A a @ 
at er 
1 fe 
ere 
i “pea mie: Seg HS is 
o B Bos o . 8 
g S8kze ar gece ° “Be : Sosttset 9 g 
; ie see : aes oa 
¢ elite © lite: si sgititiiliiis © 
Ee Le SEpmadee Sahgtee vy wifonaoke acpeoseefSPEsfEnanlen 

88 8 stats} 8 


e121 cei : 


ee | Naseetea = SSSA EE BST SS SsuouesS eco 
Ff th | ° 
is ff 





Eeererernesen ee ene 
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29-JUL-77 13:33' T36 OCK ERROR TEST 


044046 GO READ REGISTERS VIA GET SUB 


5GO TO 60S IF NO 


FT hel oO a 


110$  ;G0 TO il0S IF ERROR WAS F 
PC, PRIERR GO CHECK FOR PRIMARY ERRORS 
70$ GO TO IF NO ERROR 
iF EROR 8 I BY PRIERR SUBROUTINE 
PC,a(SP)+ GO BACK OR PORE ERROR CHECKS 
11s che) SGDDAT ‘ey entAY FROM Fone TCH CODE TABLE 
at 
HERI ; aT BAD DATA FOR TYPEOUT 
an Bt ibe 
AT =; 1S MLE STATUS CORRECT? 


sYES!! 
;REPORT INCORRECT WLE STATUS 


TBCRe), —s 
, I WAS AN ERROR DETECTED?? 


ino ATA SHOULD BE ON 
GET DRIVE’S ATTENTION 
;1S_ATA STATUS OK?? 
INCORRECT ATA STATUS 

GO TO NEXT FUNCTION CODE 
;DONE?? 

:YES #8 
~ : TEST NEXT FUNCTION 

5 JHHEEHGHHEHEHEHEHHHHIHIH HEHEHE HHH HHH HH HEHEHE 


;RTEST 37 OPI TEST 
TS Syn) sumac aaenmeram sea coeaemaemaanmaneeteasegeic w tenetotaheten 


tit 


a 43278 
ES 


Ap 
ow 
i= 
iO 


Saunas ges 


wl 


@ 
m= 
io 


SOS7ES8 


tSTART OF TEST 
BSTACK, SP HINITIALIZE STACK POINTER 


TSTOUE. RI t(R1) = DEVICE BEING TESTED 
837, STESTN : SET NUMBER IN APT MAIL BOX 


PC, TSTPRP “PREPARE DEVICE FOR TEST 
gy6ob0 s TASK DESCRIPTOR GO TO SS IF NO ERROR 
RETURN HERE IF ERROR 

ERROR ¢ DEF 


ragiall dis aE TP ERROR HAS FOUND 


20490758 a 


: 
: 
: 





MACY11 30(1046) 29-JUL-77 14:32 PAGE 137 
137 OPI TEST 


JSR PC, CNTCLR 
BR a :GO TO 20S IF NO ERROR 


Bo PUP Ree GePRES or su 


see 110 0 To 1108 IF ERROR WAS. FOUND 


fel a MODE AND DIAGNOSTIC UNIT READY, DIAGNOSTIC ON 


CERIERERRERGEROEEEOTEEE 4] 





Fa} 
a 
g 


RHR, P T 
nave eps" ike Teinaton BrTe 
ISR $60 ro as TP 1 VIA SUB 
NOP Re TURN IF 
ERROR NUMBER DEFINED BY PUT SUB 
= IMP 110S 60 TO 110$ IF ERROR WAS FOUND 
hs Mod iat a i Tote 
hove SSRD! MUR? NOC. RMMIO : eR Phu: 
JSR PC, PUT ;GO WRITE RMMRI VIA SUB 
i aa ee 
6611 0250 ERROR ERROR NED BY PUT SUB 
bbl 25 IMP 110 :G0 ey 110$ IF 
eel wae 
1 T FUNCT 
BB i ;SE VOLUME VAL ID otal Sneek haut TESTED 
eel Rove SSRRACK:! bo Ries nl tio aUrpur BUFFER = PAKACK!GO 
JSR PC, PUT 
BR 36$ G0 TO 
: senor eee ip ev PT Se 
sal IMP 110$ ;GO TO ie IF 
“ MOVB «= s SRM, PUTINX 
MOVB 8200, PUTINX+1 Hinde TER eee BYTE BYTE 
MOV 8OMD! MOC, RMMR1O ;RMMR 
JSR PC, PUT GO WRI 1 VIA SUB 
erin veal oP 
ERROR ERROR NUMBER DEFINED BY PUT SUB 
Ant IMP 110$ GO TO 110$ IF ERROR WAS FOUND 
"MOV #G0, RMCS10 
BIS Re, RMCS10 ;WRITE FUNCT IN BUFFER 
MOV SBUFONE.RMBAO ;DUMMY BUS 
MOV 8<¢C1+15,RMNCO ;DUMMY WORD 
CLR RMDAO *CLEAR DISK ADDRESS 
CLR RMOCO CLEAR CYLI ADDRESS 
MOV pat RMOFO Os; ig BHT FORMA 
MOV #PUTINKX, R3 *WRITE REGISTER INDEX TABLE 


SEQ 0140 





Til 


10782, 29-JUL-77 14:32 PAGE 138 SEQ 0141 


8 


5 
z 

3 

: 
3 


13:33 a 


$ 
E 


+ 
(R3)+ 


o: 


Gat ined pV se 

110$ — ;GO TO 10s TF bes Fouo 

Eos co 10 SAR IF-RO ERROR eT 
hed BY Get SUB 

110$ = ;GO To 110s IF PEROR es FOUND 

oO eH Oto SOs Tt NO ERROR 

; RETURN eRe IF ERROR oa 

ED Brick PER NRE Gerke 


INE 
;G0_ TO 110$ IF ERROR WAS FOUND 





: 
Saugaty SyeMaaeye uses 

i 

c 

ie 





SUNS EIN eee aus 
é = 


001140 70S: R2) , SGDDAT 2GET ENTRY FROM FUNCTION CODE TABLE 
57777 001140 T 
01142 BDDAT  ;BAD DATA FOR TYPEOUT 
is 00114 BIC 
1140 001142 CHP ; Is OPI STATUS CORRECT? 
ERROR ee! REPORT INCORRECT OPI STATUS 
1140 80S: MOV rep (R2), SGDDAT 
Bebo re BIT soe yt sWAS AN ERROR DETECTED?? 
1140 BIS sATA T ‘YES - ATA SHOULD BE ON 
agead vigetta 90$: BIC weLAT A eeOUAT . 
001142 MOV I GET DRIVE’S ATTENTION 
O01 1g BIC stCatA, T 
1140 001142 cH T: T ;1S_ATA STATUS 0K?? 
ERROR a5 INCORRECT ATA STATUS 
100$: ADD #2, R2 G0 TO NEXT FUNCTION CODE 
000076 CMP sIL576,Re ;DONE?? 
024700 fic tas TEST NEXT FUNCTION 


1105: 
ee ne 


TES S 
°QGHHHHBBHHHHIHEHHHHHHHEBHHHHEHHHHHHEHHHHII EHH EHHHIHEHEE 


Q 
2 
a 
SS 
a 


6694 tST0: 
6695 ; S00PE CALL 
B69 NOP ‘START OF TEST 
1 001100 MOV #STACK, SP ‘INITIALIZE STACK POINTER 
6698 013700 001276 MOV SBASE , RO *ROSUNIBUS ADDRESS 





DZRNCA — AMOS FUNCTIONAL TEST, PART 1 ACYL 30(10M6) -77 ‘14:32 PAGE 139 4 
DZRMCA.P11 29-JUL-77 13:33" MES eee deoRT TESTS =e GIS 
TSTQUE, Ri 5(RL) = DEVICE BEING TESTED 


MOV 
000040 001226 MOV #40, STESTN :;SET TEST NUMBER IN APT MAIL BOX 
JSR PC, TSTPRP -PREPARE DEVICE FOR TEST 
. WORD 054130 ; TASK DESCRIPTOR 
BR TO 1 NO ERROR 
ERROR ‘Eon a TSTPRP I 
te IMP 80S ; 25 10 bos IF ERROR Lie POUND 
TE 
20S: : 
ane ween adie T NO ERROR 
ie sare tial * © 
DEFINED BY CNTCLR SUBROUTINE 
oo IMP 80S IF ERROR WAS FOUND 
001533 *  MOVB- «ss @RIMERI, PUTINX 
001534 MOVB 8200, PUTINX+1 sre aut Hg ora 
a Ook SAU A RRERLO : ete Beri VIA PUT ted 
BR 4o$ G0 TO us ee No ERROR 
ERROR ajgraon, Mauer Derren 4 en ey Pur SUB 
it IMP 80s G0 TO IF 
001376 ; 0 
its fe, ts ;WRITE FUNCTION CODE IN BUFFER 
atte nov 8<4C1415 RMWCO bursty HOR 
nn MM Bt 
14 0 316 BITF 
MOV SPUTINA R3 *WRITE REGISTER INDEX TABLE 
MOVB , (R3)+ 
Bs aa 
*(R3)+ 
"(Ra)+ 
(R3)+ 
HOVE #RMCSI , (R3)+ 
#200, (R3) 
ISR PC.PUT ;GO WRITE REGISTERS a PUT SUBROUTINE 
BR 4s e IF NO ERROR 
ERROR Oe a Ie BY PUT SUBROUTINE 
oo IMP 80S 0 80S IF ERROR WAS FOUND 
* «JSR PC, TIMOUT :GO TO TIMOUT SUBROUTINE 
JSR PC'GET ;GO READ ‘REGISTERS WITH GET SUBROUTINE 
BR 50$ 0 F NO ERROR 
ERROR ERROR # DEFINED BY GET SUBROUTINE 
IMP 80s G0 TO 80$ IF ERROR WAS FOUND 








? 


= RMO3 FUNCTIONAL TEST, PART 1 MACY11 30(1 


OZRNCA JUL-77 14:32 PAGE 140 SEQ 0143 
DZRNCA.P11 29-JUL-77 13:33 T4O TESTS 


gz § 
3 
5 


;G0 CHECK FOR PRIMARY ERRORS 
;G0 T NO ERROR 





ERROR 
JSR 
BR 
RP OR seal iER 8 b INED BY PRIERR SUBROUTINE 
nn, OS 0 Ore Es ERR his rou 
70S: 
ry 02 Re ADVANCE FUNCTION CODE 
sILF76,Re2 DONE ALL COMMANDS 
BHIS 208. NO f! 
gs Per BRUEVERMALS LEHRER ERE SSL K RAKES LEE RE RAE LARK ELHERE 
e763 :&TEST 41 RMR TES 
«  EXPMPLREMESKSAURAEMERRER ESE SRRER A LRAPESELE REE ERLERKER SAKE RSE KE 
026004 téT41: 
aor pe iStant oF EST 
HOV SSTACK, SP INITIALIZE STACK POINTER 
MOV STOQUE RI 7(R1) = DEVI ING TESTED 
MOV #41, STESTN ;SET TEST NUMBER IN APT MAIL BOX 
JSR PC, TSTPRP . DEVICE FOR TEST 
.WORD 40000 ;TASK DESCRIPT 
BR 10$ ite ts Pinte NO ERROR 
HOE OR i BERORs INED BY TSTPRP SUBROUTINE 
JMP 100$ :GO TO 100$ IF ERROR WAS FOUND 
hee JSR PC,GETSTS GO TO GETSTS SUBROUTINE 
, #RMMR I ; T 
MOVE «BOO Burinno? «— TRRIVE TERMINATOR BYTE 
MOV #0MD; RMMR1O : RMMR 1 =DMD 
ISR PC, PUT GO WRITE RMMR 
308 G0 TO 
NOP * RETURN IF 
ERROR ERROR 
oa IMP 1008 G0 TO 1 
" MOVB- = @RMMR1,PUTINX  ;SETUP PUT I 
let MOVB #200, PUTINX+1 “WRITE TERMI 
Def MOV 80MO! MUR! MOC, RMMR1O ROR] 
pct JSR PC, PUT ;G0 WRI 
Det BR 4o$ GO TO 
3E NOP * RETURN 
Dot ERROR ERROR 
Oot IMP 100$ G0 TO 1 
MOVB SRMCSI,PUTINX ; 
MOVB 8200, PUITINX+1 Prat 4 a 
HOV BeAKACK? GO, RAICS1O ei tts 
BR so$ ;GO TO SOS IF NO 
NOP RETURN HERE 








Lil 


MACY11 30(1046) 29-JUL-77 14:32 PAGE 141 
THI RMR TEST =e SoM 
ERROR ERROR NUMBER DEFINED BY PUT SUB 
te IMP 100$ = ;G0 TO ioe ie IF ERROR WAS FOUND 
“ ‘JSR PC,GET GO READ REGISTERS WITH GET SUBROUTINE 
BR 60$ 19. F NO ERROR 
Hee OR i BRROR 8 INED BY GET SUBROUTINE 
‘a IMP 100$ GO TO 100$ IF ERROR WAS FOUND 
"(NOP 
#RMMR INX 
a ROVE SSO PUTINXY) cack tet PUrntneToR BTTE 
40 HOV t6r! mur! noc! OBE ‘ REPL <OMD! MUR! HOC! OBEN 
ie: ape 708 369 tal T0 st ey 
: NOP 5 IF 
Se Gaon ; PUT SUB 
Fe: 026444 an 100$ :G0 TO 100$ IF FOUND 
Bx * MOVE )«—s« SRMCS1, PUTINX PUT INDEX TABLE 
x} MOVE oat NX+ TERMINATOR 
Be 1 MOV TANCS1O ere = NOP!GO 
a3 16 JSR pipe pu INE 
St one Fee oP A 
026444 fett IMP 100$ = ;GO TO haere reer Wee ENERO 
000000 "  MOVB = @RMCS1, PUTINX 
MOVB #200 INK jane mnITE TERN a 
i HOV SOFESET! 160, RMC: BUFFER = OFFSET!GO 
BR as$ G0 TO apie : s 
ERROR : — : NED BY erat SUB 
ser IMP 100$  ;GO TO 100$ IF ERROR WAS FOUND 
" —-‘<JSR PC,GET ;GO READ REGISTERS WITH GET SUBROUTINE 
BR 30$ . 19 05 IF NO ERROR 
NOP ; RETURN F : 
ERROR ‘EROR # DEFINED BY GET SUBROUTINE 
= IMP 100$ GO TO 100$ IF ERROR WAS FOUND 
* NOP 
BIT #RMR, RMERLI ;1S RMR SET 7? 
BNE 100$ *YES #3 
MOV SRNR, SGDDAT i EXPEC STATUS 
MOV RMERIT , SBDDAT RECEIVED STATUS 
ERROR 222 *RMR DID NOT SET 


100$: 
To iii gt all 


t ATE EST 42 OR TES 
gape teen cen teammate ieee 


téty2 
ORT OF TEST 








ZRMCA - RMOZ FUNCTIONAL TEST, PART 1 nACY LI 30(104%6) 29-JUL-77 14:32 PAGE 142 SEQ O14S 
DZRNCA.P11  29-JUL-77 13:33 T42 PARITY ERROR TEST 
BLM BLE mS a go 
G19 BUSS ones Yet METER AP om 
043046 JSR PATS TPP a psig DEVICE FOR TEST 
BR 10$ 80, 9. 108 IF IF NO ERROR 
cso Te So Fa RARE HSE 
012702 000001 me MOV #1,R2 :R2 = DATA PATTERN 
004737 053210 “ ‘JSR PC, CNTCLR ;GO ISSUE CONTROLLER CLEAR 
BR 30$ G0 70 303 IF IF NO ERROR 
BRROR au a SEY GNTCLR. SUBROUTINE 
026570 ibe IMP —s«70 SE Tos IF WAS FOUND 
"  MOVB. = (RD, RB = RMCS2 


an 
re aa 1 iten” RMCS2 


ow 
sr 
mo 


EEEEEE 
1 
; 505 


;WRITE REGISTER OUTPUT INDEX 


iss Gas 





ers 
Nee 


+ 
;G0 WRITE REGISTERS H TH PUT y Sure 





ke 044316 ISR pc PUT 
NOP fire Tr ERROR 
MEP cure Es Ee RSE FAS ve 
ee O44046 ae PC,GET G0 READ om vey He ea 
d00137 026670 Se 70s sen pa ROR HAS FOUND 
000010 001342 arse BIT #PAR, RMERLI i158. PARITY ERROR SET ?? 
1 000010 0011 MOV S$GDDAT 
1 001342 001142 MOV ——- RMERIT. SBDDAT iDicto sve erate 
ies oe See aA TO ND ser 
006302 an [ADVANCE DATA PATTERN 
001313 BNE 208 BRANCH IF NOT DONE 
J UHHEEHHHEHHHHHEHHHH HHH HHHHHHHH AHHH HHH HHH HHH HEHEHE 
TEST 43 ILLEGAL REGISTER TEST 


6921 ”  apepeeenep tte ES TOUTE MIRE A ONE HEIR ee 
6922 026670 téT43 





001226 
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+ 
¥ 
+t 






+ 
Ty 





* - 
aya) 





10S: 


28 
BS 


a SSeS8g 


on 
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BoSeaas* 


ig a 


4239078 438° 


ow 
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oe 
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REGISTER TEST 
; 
SSTACK, SP tINITIALIZE STACK POINTER 
Tout. RI ttRI = DEVE NG TESTED 
#43, STESTN +;SET TEST NUMBER IN APT MAIL BOX 
PC, TSTPRP “PREPARE DEVICE FOR TEST 


040000 ;TASK DESCRIPTOR 
10$ :GO TO 108 IF NO ERROR 
BET UEN Fare AED et A tS TPRP SUBROUTINE 


120 :GO TO 120$ IF ERROR WAS FOUND 
SRS = mp ST 
STS :SETUP F TUS 
C,-(SP) §; C ON STACK 
C42. -(SP) *PUSH ERRVEC+2 ON STACK 
i ,ERRVEC, ; SETUP roa BUS TIMEOUT 
: ;R2=REGISTER INDEX 
A ella TO 30S IF NO ERROR 
a ENED BY SUB 
70S G0 TO ig enna tas F FOUND 
RO,R3 RG=REGISTER ADDRESS 
Real sCLEAR THE REGISTER 
PC, DEVSEL GO SELECT DEVI 
35$ GO TO IF NO ERROR 
ETM Cer IF 


fc GET as co es TERS VIA GET SUB 
; red. ERROR 
oo te BY Ger GET SUB 
;G0 CHECK ma Ry ERRORS 
on Pear sugrouTie 


;60 TO 70S IF ERROR WAS FOUND 
;GET DRIVE’S ILR STATUS 
itectt™ STATUS OK?? 


;SAVE R2 FOR ERROR DATA 


;1S NEXT REGISTER RMBAE?? 


SEQ 0146 





DZRNCA - RMO3 FUNCTIONAL TEST, PART 1 MACY11 30(1046) 29-JUL-77 14:32 PAGE 144 SEQ 0147 
DZRMCA.P11  29-JUL-77 13:33 T43 ILLEGAL REGISTER . 
1 BNE “NO! ! 
é ie ot 901109 oo0000 MOV 16!A17 1(R0) ;SET Al & Al7 
5s Coren OF 77774 Bre RoeeBy 1 ne » pals THIS ON EAe ALL BUT ADDRESS BITS 
bees gta nae hoooas Re sOfiBtBITL RG ” SARE aooae se E1re on 29 
6 164 414 BEQ 1 : 
3 166 : ooo002 HOV ‘ ,RS :NO - EXPECT ILR=1 
6 174 oo00s4 80S: cre #RMCS3+2, R2 ; SHOULD ILR BE SET?? 
b oooo02 HOV ‘ ,RS *YES!! 
6991 1 000076 90S: CMP #76, Re ;DONE?? 
6992 G27214 1039402 BLO 120 * YES! ! 
fe 027216 000665 100$: BR 20$ 
ge7280 022626 110$: CMP (SP)+, (SP)+ 
Eger 027222 012637 OO00006 veo MOV (SP)+ c+2 POP STACK INTO ERRVEC+2 
é 027226 012637 000004 MOV (eS Eevee -:POP STACK INTO ERRVEC 
7000 TEST 44 SEEK LAST CYLINDER 
oe HELERHRASERERESS 
FOS 027232 FF el 
7004 Oe7e32 OO0004 SCOPE ; SCOPE CALL 
70 eae Gera? 900001 901208 MOV #1, STIMES *LOAD ISERATEON COUNT 
1 1l22 MOV #1$, SLPAOR 
7008 Oe7eS2 012737 027260 001124 a MOV #15, SLPERR 
Mt teee0 012706 001100 : MOV SSTACK, SP s INITIALIZE STACK POINTER 
7011 013700 001276 MOV SBASE RO : RO=UNIBUS AQORESS 
Pals fre BLED BU mY waite SE Teh TR 
1 001226 #44,STES se IN MAIL BOX 
pois Gerae 043046 10S: JSR__-PC TSTPRP DEVICE FOR TEST 
7B eet aie . WORD ea T3q sTASK DESCRIPT 
1 1 BR 80S -GO TO 80S IF NO ERROR 
7018 Oe73l2 Oo00c40 NOP ; RETURN 
7019 027314 104000 ERROR “ERROR ® DEFINED BY TSTPRP SUBROUTINE 
7020 000137 027534 a IMP 140$ :GO TO 140$ IF ERROR WAS FOUND 
Ms 912797 oo00000 “MOV #0, RMDAO ; TRACK = SECTOR = 0 
7023 1 1466 001432 MOV #8c2. . RMDCO “CYLINDER = 822 
Re ee tive meme Oe RY Eerie 1 ay Soe Hae 
il erie MOVB SRMDC, (R2)+ + WRITE Ree ISTER oiBEX TABLE 
il 900006 MOVB = SRMDA. (Ro) + 
il MOVE  sRMCSI. (R2)+ 
7029 112722 000200 MOVB #200, (R2)+ ;WRITE TERMINATOR 
7030 004737 044316 JSR PC, PUT °GO WRITE REGISTERS VIA PUT SUB 
7031 tall BR 90$ GO TO 90$ IF NO 
NOP RETURN IF ERROR 
7033 104000 ERROR “ERROR DEFINED BY PUT SUB 
7034 Oe7402 000137 027534 IMP 140$  ;GO TO 1490S IF ERROR WAS FOUND 





a 

“A 
par 
= 


Cle 
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1 29-JUL- 
027406 90S: ISR rai OR STATUS FETCH 
aay yen Bs typout Se eek tira SUB 
BR G0 TO ibs 4 
ERROR BE Oe OEE NED SUB 
— IMP 140$ = ;GO TO 1405 IF ERROR WAS FOUND 
4 Of a J PC, PRIERR 360 CHECK FOR PRIMARY 
110s F NO 
; NOP ; RETURN 194 
ERROR ERROR 8 THED BY PRIERR SUBROUTINE 
ISR PC, a(SP)+ G0 BACK CHECKS 
000137 027534 aad JMP 140s G0 TO 140$ IF ERROR WAS FOUND 
051750 " ‘JSR PC, SEKSTS G0 VERIFY TS OF SEEK OPERATION 
Sons BR 1205 120s I IF NO ERROR 
re ERROR peru ere ie Earn feD By SEKSTS SUBROUTINE 
736 ISR PC, 3(SP)+ GO BACK FOR CHECKS 
Elana an IMP 140s 60°10 14 IF ERROR WAS FOUND 
004737 061416 * ‘JSR PC,CMPERRSTS | ;CHECK ANY ERRORS NOT MASKED 
15760 .WORD  NDTMSK *MASK FOR RER 
io ee OSs TOA SK FOR TO 1308 IF NO ERROR 
000240 NOP RETURN HERE IF ERROR 
1 ERROR “ERROR ® DEFINED BY CMPERRSTS SUBROUTINE 
ISR PC, 3(SP)+ GO BACK FOR ERROR CHECKS 
000137 027534 is IMP 140s ;GO TO 140$ IF ERROR WAS FOUND 
045674 * ‘JSR PC, SECERR G0 CHECK FOR SECONDARY ERRORS 
BR 140$ GO TO 140$ IF NO ERROR 
Ge7Seb NOP RETURN HERE IF ERROR 
104000 “ERROR ® DEFINED BY SECERR SUBROUTINE 
027532 004736 ISR PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 
027534 140S: 
: oESLLELELERYRREHSE KEELES 
TEST 45 SEEK Fi FIRST *CYLINDER 


 SG-SE-06 356-36 36-36-36 6 SE HE SE A SS 0 a 2 EE 


027534 tétus 
Bere. Posed Ror setpRT OFT 
NOP ; START OF TEST 
027540 012737 000001 001206 MOV #1, STIMES LOAD ITERATION COUNT 
027546 Oe? 37 027562 O01i22 MOV #1$, SLPAOR 
01 027562 001124 ie MOV #15, SLPERR 
912706 001100 MOV sSTACK SP ; INITIALIZE STACK POINTER 
1 001276 MOV reraie st ; RO=UNIBUS ADDRESS 
013701 001446 MOV ean 1 j (RL) = DEVICE BEING TESTED 
012737 O0004S 001226 a MOV SET TEST NUMBER IN APT MAIL BOX 
rae 004737 043046 * «JSR “PREPARE DEVICE FOR TEST 
027610 054130 . WORD Gsi130 TASK DESCRIPTOR 
027612 O00404 BR :GO TO 80S IF NO ERROR 
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DZRMCA - RMOZ 
OZRMCA.P11  29-JUL-77 13:33 T4S SEEK FIRST CYLINDER 
4 NOP RETURN IF ERROR 
fe: aie: 030036 oon IMP 140$ a Dee Los IF ERROR HES. FOUND 
1 000000 001404 "MOV 80, RMDAO ave = x wis =0 ee 
F082 027646 Te 001533 ie nov set TNX * pes og R2 POINTS T cBreeno 1 BUrrER TABLE 
“xX 
pe7b5e gogo 34 hove ser, (fia) sTRITe REGI INDEX TABLE 
Hh ee ea eS um 
71 Lie 316 ISR PC PUT SOR IE ROCISTERS VIA PUT SUB 
7108 76 ae BR 30$ GO TO ois IF nee IF 
ERROR fait ay ati SUB 
At 137 030036 ae IMP 40S -GO TO 140$ IF ERROR WAS FOUND 
ae a en ee ee ae 
ii BR 100$° GO TO 1669 f ap oe 
HH BS ME come SE nos co 10 HAE Boa rso™ 
O4S04, ; PR ERRORS 
as Bre Gee ome get agian 
att ERROR TERROR ® DEFINED BY PRIERR SUBROUTINE 
ite niaiaed ISR PC, a(SP)+ GO BACK FOR CKS 
rigs 000137 030036 a JMP 140s ;G0 TO 14S IF ERROR WAS FOUND _ 
: FY OF OPERATION 
rigs nike 051750 ISR PC SEKSTS GO VERI Y REGU -onek 
71 NOP ; RETURN a TERROR . 
7187 AONE rR PC, 3(S5P)+ if Back PEE NORE ERROR tie ae — 
7is8 ee: Boois? 030036 ee 1408 ’ :G0 TO 140$ IF ERROR WAS FOUND 
7 127775 : CMPERRST' ;CHECK ANY ERRORS NOT MASKED 
713 53000e Tiereo ree: Tro NOt RREK FOR RRERI 
71 10 “WORD DPE MASK FOR RMERC 
71 BR 130$ GO T 1308 IF NO ERROR 
He BB ie a SE I  ecrers sou 
4 DONT JSR PC, a(SP)+ TR OECK FOR HORE ERROR. CHECKS “= 
re B00137 030036 ite IMP 108 : ;GO TO 140$ IF ERROR WAS FOUND 
716 30026 Gongs ping aR ae os a p10 ios IF ERROR 
INED BY SECERR SUBROUTINE 
rhe Ges Se an erie Ra DA Se 
7145 33 ee er SHINEE 
7146 “TEST 46 SEEK PRIME CYLI 
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tétug: 2 } ae 
000001 001206 #1, STIMES SCOAD ITERATION COUNT 
Bei LE if 
oble7e soar A SL INIBUS ADRESS Oe 
1446 Que, Ri 5 (RL? =_ DEV Ice BEING TESTED 
OO004%6 001226 #46, STESTN : IN APT MAIL BOX 
000001 001432 a #1, RMDCO FIRST CYLINDER WILL BE 1 
043046 A pay DEVICE FOR TEST 
80$ -GO 10. 60s IF IF NO ERROR 
Sean Geren gy | SUBROUT INE 
030364 150$ ERROR WAS FOUND 
NN000O #0, RMDAO if eet! 
Pi ie, ‘eend I RE 
seUTINY Be, Ps eee 
SRMDA, (R2)+ 
sere ine) WRI NATOR 
syer GO UALTE GISTERS VIA PUT SUB 


a 


g 
S 8* 
3 


i ie See 





Se ee ee eer Reece ree at 33333 Seog 


D gv put PUT SUB 
. jgeroR FOUND 
90S: PC, GETSTS ; FOR ATUS FETCH 
Bae oo 8 Pata 
100$° ;GO TO 103 ha 
a 140$ ;GO TO ise IF ERPON DEFIRED GY GFT 
owso42 : PC, PRIERR ;G0 CHECK F 
110s cb fot 110$ ne 
INED BY PR ERR INE 
ao» ees 
030340 a 14s ;G0 TO 140S IF ERROR WAS FOUND 
051750 ; PC, SEKSTS G0 VERIFY SULTS OF OPERATION 
1208 9 1208 IF NO ERROR 
; RETURN IF ERROR 
*ERROR ® DEFINED BY SEKSTS SUBROUTINE 
PC, a(SP)+ GO BACK FOR ERROR CHECKS 
030340 wi 14S ;GO TO 140$ IF ERROR WAS FOUND 
061416 } PC,CMPERRSTS | ;CHECK ANY ERRORS NOT MASKED 
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T46 SEEK PRIME CYLINDERS 
.WORD  NOTMSK MASK FOR RMER1 
goes FO ns IF Wo ERR 
ce scrum iGfe"te Bal "OER 
FRROR ‘PC, a(SP)+ + EO back pee Nike CKS 
soon IMP 140s ;GO TO 140S IF ERROR WAS FOUND 
ro oo PC, SECERR GO CHECK FOR SECONDARY ERRORS 
BR 1405 GO To | F NO ERROR 
NOP ; RETURN F 
ERROR *ERROR ® DEFINED BY SECERR SUBROUTINE 
ISR PC, 3(SP)+ GO BACK FOR ERROR CHECKS 
140S: HOV Reco ,- (SP) ‘SHIFT TO NEXT PRIME CYLINDER 
MOV (SP), RMDCO 
CMP a51e- , (SP)+ 31S THE TEST DONE?? 
BLO 1 2 YES!! 
ae IMP 10$ GO DO NEXT CYLINDER 


3 UHHHHHHHHHHHHHHHHHHHHHHHHHH HEHEHE 
;#TEST 47 SEEK ZERO DIFFERENCE 


+itG7e MEREEYRELEERLLSA ESHA SERESE LE SALES KER SHEER ELK LALA RASA HARE L ERE 
"SCOPE ;SCOPE CALL 
NOP START OF TEST 
MOV #1, STIMES *LOAD ITERATION COUNT 
MOV #1$, SLPADR 
* MOV #15, SLPERR 
: MOV aSTACK,SP . s INITIALIZE STACK POINTER 
MOV SBASE ; 
MOV TSTQUE RI >(R1) = DEVICE BEING TESTED 
ee MOV 847, STESTN ::SET TEST NUMBER IN APT MAIL BOX 
"—‘<JSR PC, TSTPRP -PREPARE DEVICE FOR TEST 
-WORD 054130 ;TASK DESCRIPTOR 
BR 80S 82,70 80S IF NO ERROR 
NOP ; RETURN IF 
ERROR ‘ERROR ® DEFINED BY TSTPRP SUBROUTINE 
ad IMP 170$ :GO TO 170$ IF ERROR WAS FOUND 
“MOV #1,R3 ;R3 = NUMBER OF SEEKS 
MOV : *CYLINDER = 
MOV *TRACK = SECTOR = 0 
mY Saursargg"° HR erie ee STER 
MOVB = SRMDA, (R2)+ iAarre MPeIStER INDEX THLE’ 
MOVB S@RMDC, (R2)+ 
MOVE = SRMCSI, (R2)+ 
om MOVE 8200, (R2)+ TERMINATE TABLE 
" sJSR PC, PUT GO WRITE REGISTERS VIA PUT SUB 
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29-JUL-77 13:33 T47 SEEK ZERO DIFFERENCE 
po00404 BR 100$ = ;G0 TO 1008 IF NO ERROR 
NOP F ERROR 
ERROR uo SUB 
apiaies 100$ Top ‘pie a Our TuS 
ae 7 Rint ate i 
ee fe 0 ue dan le 
ie GEO DEFINED YG 58 
137 030706 ial IMP 170$ _ ;GO TO ieee ay FOUND 
oyso42 " ‘JSR PC, PRIERR GO CHECK FOR PRIMARY ERRORS 
BR 130s CO 19 1 F NO ERROR 
PRR TEN TE INED BY PRIERR INE 
Or oR a PC, 3(SP)+ GO BACK per Gece 
137 030706 con IMP 170 G0 TO 170$ IF ERROR WAS FOUND 
737 051750 " ‘JSR PC, SEKSTS GO VERIFY TS OF SEEK OPERATION 
BR 1405 . 9 I F NO ERROR 
NOP ; RETURN F 
ERROR ERROR ® DEFINED BY SEKSTS SUBROUTINE 
736 ISR PC, 3(SP)+ GO BACK FOR MORE ERROR CHECKS 
137 030706 ta IMP 170$ G0 TO 170$ IF ERROR WAS FOUND 
004737 061416 “JSR PC,CMPERRSTS  ;CHECK ANY ERRORS NOT MASKED 
115760 .WORD NOTMSK *MASK FOR RMERI 
"WORD DPE MASK FOR 
BR 1S0$ -GO TO 1SO0S IF NO ERROR 
NOP ; RETURN IF ERROR 
ERROR ERROR # DEFINED BY CMPERRSTS SUBROUTINE 
ISR a(SP)+ GO BACK FOR ERROR CHECKS 
137 030706 sone IMP Shs G0 TO 170$ IF ERROR WAS FOUND 
90N7 37 045674 a CERR GO CHECK FOR SECONDARY ERRORS 
BR rebe -GO TO 1 F NO ERROR 
NOP : RETURN IF 
ERROR j ERROR # DEFINED BY SECERR SUBROUTINE 
SR PC, 3(SP)+ G0 BACK CHECKS 
137 030706 ne JMP 170$ GO TO 170$ IF ERROR WAS FOUND 
005303 "pee R3 ;DONE ALL SEEKS?? 
BHI 170$ *YES!! 
137 030526 att 30s *NO - GO DO NEXT SEEK 
© REBELS SELLE GALES K SRSA RARER RRS RA EERE REA E REAR EERARRRRERERE 
TEST 50 SEEK MAXIMUM DIFFERENCE FORWARD 
; Nia a oricd ae aaron a 
SCOPE ;SCOPE CALL 
NOP OF TEST 
1 p00002 001206 MOV 82, STIMES + POA ITERATION COUNT 
012737 030734 OOll22e MOV #1$, SLPADR 
012737 030734 001124 MOV #15, SLPERR 
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ges eeseesss 493758 338s 


2 
8 





=e 
£oo 


888 8 


AtAtAtAt 


SOOO O0DORD 
tA At ATATATATAtAt 
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29-JUL-77 14:32 PAGE 150 
MUM DIFFERENCE FORWARD on 
seek sINITIALIZE STACK POINTER 
T ( 
roe, ay sevice Tear, 
PC, TSTPRP “PREPARE DEVICE FOR TEST 
054130 TASK DESCRIPTOR 
peru fete fe Finds 
INED BY TSTPRP SUBROUTINE 

160 GO TO 160$ IF ERROR WAS FOUND 
80, RMDCO fixie I a 
phy RMCS10 * FUNC = EI, SEEK 
#PUTINX, Re :R2 SOCOIRTS TO REGISTER TABLE 
sRHDA, ( i+ WRITE REGISTER INDEX TABLE 
SRNCS!, (R2)+ 
#200, (R2)+ TERMINATE THE TABLE 
PC, PUT WRITE REGISTERS VIA PUT SUB 
100$  ;GO TO 1608 Tr IF NS ERROR pe 

Re JF ERROR BY PUT SUB 
160$  ;GO TO ine IF PERO WAS FOUND 
PC, GETSTS FOR STATUS FETCH 
PC; TIMOUT taETY ron my 0 COMPLETE 
PC GO READ’ LS TERS VIA cer oe 


GET 
110$°  ;G0 TO i IF NO 


ERROR 
‘ERROR DEFINED BY GET SUB 
160$  ;GO TO 160$ IF ERROR WAS FOUND 


PC, PRIERR 360 CHECK FOR PRIMARY ERRORS 
1208 -t F NO ERROR 
4, Ag 
ERROR & HED BY PRIERR SUBROUTINE 
PC, a(SP)+ GO BACK FOR S 
160$ ;GO TO 160$ IF ERROR WAS FOUND 
PC, SEKSTS ;G0 VERIFY RESULTS OF SEEK OPERATION 
130 I F NO ERROR 
; RETURN 
os iene Pay SO # DEFINED BY SEKSTS SUBROUT INE 
160$ - 68 SF NOTE OST ot S Gas FOUND 
PC,CMPERRSTS  ;CHECK ANY ERRORS NOT MASKED 
NOTMSK *MASK FOR RMERI 
DPE *MASK FOR MERE 
140s -GO TO 1 F NO ERROR 
RETURN HERE 


;ERROR # DEFINED BY CMPERRSTS SUBROUTINE 
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29-JUL-77 13:33 TSO SEEK MAXIMUM DIFFERENCE F 

1166 004736 JSR PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 

1170 000137 031234 ld IMP 160s GO TO 160$ IF ERROR WAS FOUND 

1133 737 045674 " ‘JSR PC, SECERR ;G0 CHECK FOR SECONDARY, ERRORS 

1 1S CO T F NO ERROR 

ie ee I 

1 ne PC, a(SP)+ bs cron # D TERE ERROR Cn es 

; i 10 enki 031234 ei IMP the con 10 win oP ERROR WAS FOUND 

i 4 ; 001432 an R ;1 TEST DONE??? 

1 12737 001466 001432 MOV #522. , MOCO ?NO - SEEK TO LAST CYLINDER 

i 137 031044 aan IMP 
s © REGGE G ERASERS RARER RARER RARER RAR A AREA AA AERA E RAKE 
TEST Sl SEEK ADJACENT FORWARD 


© Sb Se Se SE-SE 36 36-06 06 E-0E E E E SE HSS HH EE 


+451 


‘START OF TEST 
+ STIMES ;LOAD ITERATION COUNT 


he 
a) 
on 


SSTACK, SP ; INITIALIZE STACK POINTER 


STout, Ri FCRL) = Device BEING TESTED 
#51, STESTN ::SET TEST NUMBER IN APT MAIL BOX 


STPRP “PREPARE DEVICE FOR TEST 
Pea 3q TASK DESCRIPTOR 
80S CO TO. 80S IF NO ERROR 
RETURN ERE, IE ERROR 
ERROR ® DEFINED BY TSTPRP SUBROUTINE 
;GO TO 160$ IF ERROR WAS FOUND 
;CYLI = 0 


“TRACK = SECTOR = i. 
8SEEK!GO, RMCS10 sFUNCTI ON CODE FOR SEEK 


sah Mess ‘fare TATRISTER INDEX TABLE TABLE 


( 
, (R2)+ ; TERMINATE REGISTER TABLE 


— 
se 






90,00,0,90,000090000000) 


SETESRESIIR IRIS RNS ROSNER RURERNS 
ISO NWNS GE Gs Se 
8 8 
BS Ff 
g 
syueageta H4agezee ere 2222 222 
S35 

S 
5 


Jojelolejelelelel=jel= 





A 





ar oOOOoS 
AtAtATAtATATAtAt 





PC, PUT -GO WRITE REGI VIA PUT SUB 
100$  ;GO TO Fa a NO 
F ERROR 

ik 1562 160$  :GO0T01 pemus e, oun a 
031410 Oires 100S: PC, GETSTS oe fees FETCH 
031414 PC’ TIMOUT * WAT 
031420 O44046 PC’GET GO READ oR OMELET OVA GET SUB 
031424 110§  ;GO TO 110$ IF NO ERROR 





pp 
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1 13:33 TS1 ADJACENT FORWARD 





















29-JUL-77 SEEK 
1K 142% 000240 NOP s RETURN HERE IF ERROR nei 
ix ERROR 
o: ie are 031562 a IMP 160$  ;GO TO ere per a Founo 
14 o4so4e " ‘JSR PC, PRIERR GO CHECK FOR PRIMARY 
1 BR 120s . 1 F NO 
NOP ;RETURN | ; F a “ 
nage Age FRROR PC, a(SP)+ EO back PEE NER. Laeoe Sete mes 
rae 000137 031562 as IMP 160$ GO TO 160$ IF ERROR WAS FOUND 
004737 051750 "JSR SEKSTS ;G0 VERIFY RESULTS OF SEEK OPER OPERATION 
031 BR Ses 70. 130s IF NO ERROR 
031 NOP ; RETURN 
ERROR “ERROR ® DEFINED BY SEKSTS SUB SUBROUTINE 
ISR PC, a(SP)+ :G0 BACK FOR MORE 
a: 4 137 031562 oan IMP 160 :GO TO 160S IF ERROR RAS FOUND 
031476 O04 061416 oP we PC,CMPERRSTS | ;CHECK ANY ERRORS NOT MASKED 
031 . WORD TMSK ; FOR RMER 
031 * WORD MASK FOR 
031 BR 140 -GO TO 140S IF NO ERROR 
03151 NOP ; RETURN F ERROR 
03151 ERROR “ERROR ® DEFINED BY CMPERRSTS SUBROUTINE 
031514 ISR PC, a(SP)+ :GO BACK OR MORE ERROR CHECKS 
a3 000137 031562 es IMP 160$ ;GO TO 160$ IF ERROR WAS FOUND 
031 737 045674 * ‘JSR PC, SECERR ;GO CHECK FOR SECONDARY ERRORS 
pat 5R 1S0$ ei 205 IF NO ERROR 
tk NOP eae 
031 ig JSR PC, a(SP)+ THORE ERROR CHECKS 
ga 137 031562 ie JMP 160$ cick Foe TO 160$ IF ERROR WAS FOUND 
vet 005737 001432 ‘ TST RnOCO sFIRST TIME THROUGH? ? 
031 000001 001432 MOV #1, RMDCO YES - SEEK TO LAST CYLINDER 
031558 137 031372 IMP 30$ 


160$: 
© REGGAE RGR EAR REE R AERA ERASER ERES 
ST S2 SEEK ADJACENT REVERSE 





 ETEST 
§ 
= + REESE RRR AS RRR REAR RRR RR ERASER R RRA RRR RRRAARREEEE 
1563 t$Tse2: 
1 oo0004 SCOPE ;SCOPE CALL 
1564 000240 NOP START OF TEST 
i Te 900001 001206 HOV a STIMES LOAD ITERATION COUNT 
i 0 1 3} 1 Bot tsa - MOV alt gee 
1610 12706 001190 c HOV #STACK, SP s INITIALIZE STACK POINTER 
Sebo 13701 St MOV is Sons ARO *(R1) = DEVICE BEING TESTED “ 
bes 1 0000S2 001226 oe MOV #52, STESTN SET TEST NUMBER IN APT MAIL BOX 
031632 004737 043046 " ‘JSR PC, TSTPRP ;PREPARE DEVICE FOR TEST 
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032110 
001466 


044316 


032110 


MACY11 30( 1046) 
TS2 K ADJ 


100$: 


110$: 


120$: 


130$: 


agUuaaaps FEI TR, | 


$3 


29-JUL-77 14:32 PAGE 153 
ACENT REVERSE 


054130 ;TASK DESCRIPTOR 
;GO TO 80S IF NO ERROR 


BRR S"REE AEDES Ysteme suarouTINE 


160$ ;GO TO 160$ IF ERROR WAS FOUND 
#622. , RMDCO stm aT LAST CYLINDER 
00, iy, ae 
SPUT ine ” pee } PE OFFERS INDEX 
SAMOA cRoD+ ig Fo nrg 10 fe fibex TABLE 
SRMOC; (Ro) + 
#RMCS1. (R2)+ 
#200, (R2)+ ; TERMINATE TABLE 
PC, PUT -GO WRITE REGISTERS VIA PUT SUB 
100$  ;GO TO ut IF NO 
F ERROR 
wee PUT SUB 
60S 


;60 TO gree 


160$ ;G0 TO sete pee inen gv FOUND 


PC, PRIERR GO CHECK FOR PRIMARY ERRORS 
120s *GO0 TO 1 cus IF NO ERROR 

Ean a eee PRIERR SUBROUTINE 
PC, 3(SP)+ CHECKS 
160S ;G0 TO 160$ IF ERROR WAS FOUND 
PC, SEKSTS ;GO VERIFY RESULTS OF SEEK OPERATION 


130 -GO TO 130$ IF NO ERROR 
Baus Der BY SUBROUTINE 
PC, a(SP)+ : NeRE LeROR ChECKe 


160 G0 TO 160$ IF ERROR WAS FOUND 

PC,CMPERRSTS | ;CHECK ANY ERRORS NOT MASKED 

NOTMSK *MASK FOR RMER 

OPE MASK FOR 

140S -GO TO 140$ IF NO ERROR 
;RETURN | IF 


oe BY Mae LER SUBROUTINE 


PC, a(SP)+ EO BECK 

160$ ~ ee * TO 0 1g08 IF ERROR WAS FOUND 
PC CASECERR ;G0 CHECK sortie ERRORS 

PC, a(SP)+ Pk, " “Seinen fy secem,supUTINE 
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29-JUL-77 13:33" el a 8 Cis7 
000137 032110 on IMP 160$ GO TO 160$ IF ERROR WAS FOUND 
goer” 001466 001432 : cre eee. ,RMOCO 118] THIS THE FIRST SEEK?? 
0014 S - SEEK TO ADJACENT CYLINDER 
Beers? | ba1720 fs iS aree 
KELSAAAASARASRRLERESREEEER EER RRA LAA RA AERA AAAS 
SEEK INVALID SECTOR 
KEREGESKERLEA AME LHS HERSEK ELERH HE ERELERSRAS HLH ERLE ELE 
; CALL 
‘START OF 
#STACK INITIALIZE STACK POINTER 
? ROSUNI 
TSTQUE, RI (RL) = DEVI NG TESTED 
#53, STESTN ::SET TEST NUMBER IN APT MAIL BOX 
DEVICE FOR TEST 


BS4130 TASK peScRIPTOR 


;RETURN FRE Te ERROR Sn 
oor coitde 1808 IF ERROR is FOUN 


mos es ae lel 16 me re ages 


Re POINTS TO REGISTER TABLE 
ISTER INDEX TABLE 


)+ ; TERMINATE TABLE 
,GETS ;SETUP I REGISTER INDEX 


958 100 10 Sh tO EE cane 


180$  ;GO TO 180$ IF ERROR WAS FOUND 
PC, GET :GO READ REGISTERS VIA GET SUB 
100$  ;G0 TO 100s IF NO ERROR 
iene ROR DEE THED BY cet BY GET SUB 
180$  ;GO TO 180$ IF ERROR WAS FOUND 
PC, CLRSTS GO VERIFY CONTROLLER CLEAR OPERATION 
110 -GO TO 110$ IF NO ERROR 
;RETURN HERE IF 
ERROR & EE IHED BY CLRSTS SUBROUTINE 
PC, a(SP)+ GO BACK FOR MORE CHECKS 
180$ ;GO TO 180$ IF ERROR WAS FOUN 
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DZRMCA.P11  29-JUL-77 13:33 TS3 SEEK INVALID SECTOR 
Pee Gass Bia, ONS or TBS" jco vo 1808 Tron Eon 
ee Be3¢ a, i 
7e00 Diese 1208: i Pe, tinout MAL off? TO reSeT 
: Be JSR § PC’GET ;GO READ REGI "a. SUBROUT INE 
332: BR 1268 1 F NO ERROR 
oo a ae ae Pee F Ave 
es E oyso42 aa isk PC, PRIERR ;60 cH CK FOR ToT Tae fr ho chon 
ae roe Le ae 
Ze 051750 ¢ ISR PC ASEKSTS ;GO VERIFY Y RESULTS OF 3, EQRERATION 
rele ERROR peru ese I BY SEKSTS SUBROUTINE 
1 33 JSR PC, a(SP)+ GO BACK FOR MORE ERROR 
re 137? 032476 conn IMP 180$ ;GO TO 180$ IF ERROR WAS FOUND 
004737 061416 1S0S: JGR PC, CMPERRSTS ; CHECK ANY ERRORS NOT MASKED 
- WORD TAL! NDTMSK mm F oles FOR RMERI 
BE BR ith oe FOO 1608 IF NO ERROR 
Aad 3 FRR oc acspys Enact She trson Cees 
032435 000137 032456 ee Ft 1768 ;G0 TO 170S IF ERROR WAS FOUND 
pee ie =” ee a tlie 
ie FER pc acspis cre» GRIND, BY, SECERR, SUBROUTINE 
a: 901404 see 1708: INc RHORO a0 HTncRereNT OSECTOR ADDRESS 
tk? BLO 1808’ “YESS! 
b3¢ 13? o32242 INP 6-908 NO - TEST NEXT SECTOR 


180S: 
eee Le ae 
SEEK INVALID 


pars yas ae sae eenaee | 


ATE TRACK 
jHeeeeteueenneshetuntunetanetoneeneenaecoeaaeeaaneneeaneeaneeys 
SCOPE : 
iS Tae 
001100 aSTACK, SP ‘INITIALIZE STACK POINTER 
13700 001276 MOV RO : SS 
032512 013701 001446 MOV TSTQUE, Ri (RL) = DEVICE BEING TESTED 
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DZRNCA.P11 = 29-JUL-77 13:33 TS4 INVALID TRACK 


012737 O000S4 001226 #54, STESTN ;;SET TEST NUMBER IN APT MAIL BOX 
DEVICE FOR TEST 
;60 2 i IF NO ERROR 


I SUBROUTINE 
gman oe Th PUP 
sOb2400,RMOAO  }SECTOR=0 Trans 


INX, R2 18 BAT TO REGISTER TABLE 
SRMOF , (R2)+ “WRITE REGISTER INDEX 


Rae ; TABLE Fi 

(Re)+ 

1,¢ 2)+ 

Be : a TSTS + CETUP NONBUT Ae TABLE FOR STATUS 


= 2° GE ot oo 


0 T0 2008 IF ERROR WAS FOUND 


;G0 READ REGISTERS VIA GET SUB 
;G0 TO it IF NO 


oo to cbt’ Sie 
;G0 VERIFY dreelticl 


Rerurie 
PC, a(SP)+ re be 
GO TO 


20bs RO ES no 


TSS, ;0 To et IF i etal Sos: 





1A x 


1108: 





$34 ek ee 390°% 393°% Beseesceece tae au $F 





re 

1308s; 

200 

PC, PRIERR G0 CHECK FOR PRIMARY 

14ds a, At F NO 
ERROR ERROR INED BY PRIERR SUBROUT INE 
JSR PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 


o 


~_ 
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000137 


co 


000137 


033112 
0S17S0 







Me 
772 
7728 

4 oe 
7732 
773 1 
ss feud O0i0 
ee g1e73? ogeHon 
7740 
7741 
7742 
7743 
7744 «O33lle 
7745 QG33ll2e oooon4 
re Gat OOD 
riz Galle Otero op1iop 
7749 esis Bi s70) 001446 
Bs eave wre oo 
Trek Testis Saou 
ace 
Free OSI Ot Bou? 
7761 O33e02 012737 000000 
7762 033210 012702 001533 
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001404 
001404 


001430 


001430 
001404 


001226 
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SEEK INVALID TRACK 
“ta IMP 200$ G0 TO 200$ IF ERROR WAS FOUND 
oo! PC, SEKSTS ;G0 VERIFY OF SEEK OPERATION 
BR 150s ue To F NO ERROR 
ERROR i heel cin INED BY SEKSTS SUBROUTINE 
on IMP aoe cont" 10 i808. iy ERROR as FOUND 
1605: 
ISR TS  ;CHECK ANY NOT MASKED 
Bey STORES (OE OU SPU SE, 
BR 1708 eeTurn ide or ERB NO ERROR 
ERROR tits. oor # DEFINED BY CMPERRSTS SUBROUTINE 
oe, CT OP ho CRN tas rou 
: CERR CHECK F 
nee eae 
ERROR ZERROR 8 DEFINED BY SECERR SUBROUTINE 
ISR PC, a(SP)+ :G0 oe DEP PORE ERROR tRBoR CHECKS 
180$: ADD #400, RMDAO HTnceerent TRACK ADDRESS 
CH #004100, RMOAO * DONE 
190S: Bit 12f 16, RMOFO Sn PT Ee FOR 16 BIT?? 
HOV Par ib RMOFO see! FORMAT 16 
195$:  JMP 509° 0b , RMAC Ri Por 16 BIT FORMAT 
5p RERREES KEERKEMERLERLERAKSEE LE 
TEST SS SEEK INVALID CYLINDER 
 - £24 REEKKKKE HUPRSRESEEERLERE 
tSTss: 
SCOPE ; 
NOP ;START OF 
HOV TACK, SP s ANITA IZE STACK POINTER 
MOV TSTQUE RI (RI) ICE BEING TESTED 
MOV #55, STESTN SET Bt) Feet MEER IN APT MAIL BOX 
JSR PC, TSTPRP -PREPARE DEVICE FOR TEST 
.WORD 054130 ;TASK DESCRIPTOR 
BR 80S 82,70, 80S IF NO ERROR 
ERROR ERROR @ DEF INED BY TSTPRP SUBROUTINE 
IMP :G0 TO 200$ IF ERROR WAS FOUND 
80S: MOV SSEEK!GO,RMCS1O ;SEEK FUNCTION 
MOV #0, RMDAO sSECTOR = TRACK = 0 
MOV #823. . RMDCO ;CYLINDER = 823 
MOV #0, RMOFO 18 BIT FORMAT 
MOV SPUTINX, Re *R2 POINTS TO INDEX TABLE 


SEQ 0160 


VAL ATIIVVWIWI Vy N ww Lt 


sataalaiaata 
ONOWMEWUe 


pagal suo) pe Tr se PAGE 158 SEQ 0161 
MOVB 


- RMO3 TIONAL PART 1 
Pil se 13:33” 
14 11 000006 SRMDA, (R2)+ ;WRITE REGISTER TABLE 
il 000034 MOVE § SRMDC, (Ro)+ 
il MOVB  SRMOF.(R2)+ 
ti HOVE enris| (Re)+ TERMINATE TABLE 
is 043762 = JSR PC, GETSTS ET UP POF STATUS 
004737 053210 “ —‘<JSR PC, CNTCLR 
000404 BR 9s$ :GO TO 95$ IF _NO ERROR 
Is609 ERROR Paty ef ineg BY SUB 
137 033460 me IMP 180$ ;GO TO 1860S IF WAS FOUND 
004737 O44O4S a 2a PC, GET GO READ REGISTERS VIA GET SUB 
000404 BR 100$  ;GO TO 100$ IF NO ERROR 
000240 NOP ; RETURN HERE IF ROR 
Aporay 033460 ion 180$  ;GO TO 16s of Baa ay FOUND 
053326 " ‘JSR PC, CLRSTS ;GO VERIFY CLEAR OPERATION 
BR 116s -6O 19 1 F NO 
NOP RETURN AERE F RR oa 
ie oR . PC, a(SP)+ + EO back per NORE LRe checks 
137 033460 com IMP 180$ ;G0 TO 1680S IF ERROR WAS FOUND 
004737 044316 : ISR PC ApuT mgs 38 WRITE REGISTERS VIA PUT SUB 
04000 ERROR * ERROR DEFINED PUT SUB 
13? 033460 IMP 180$ GO TO 180$ IF FOUND 
044656 120$: JSR PC, TIMOUT ;WAIT FOR GO T 
737 O44046 JSR *GO READ REGI VIA GET SUB 
pS 00 0 ene 
10% ERROR *ERROR DEFINED BY GET SUB 
137 033460 toon IMP 180$ ;GO TO 180$ IF WAS FOUND 
737 o4so4e2 a aa PC, PRIERR GO CHECK FOR PRI ERRORS 
aH Sones BR 140s 500 To. 140 IF NO ERROR 
033370 guano ERROR ERROR ® DEFINED BY PRIERR SUBROUTINE 
033: ISR PC, 3(SP)+ GO BACK FOR MORE ERROR S 
a335 137, 033460 aie, INP 1980S G0 TO 180$ IF ERROR WAS FOUND ; 
03: 004737 051750 “JSR PC, SEKSTS ;GO VERIFY RESULTS OF SEEK OPERATION 
gog40s BR cbs -GO TO 1S0$ IF NO ERROR 
NOP ;RETURN HERE IF 
04000 ERROR “ERROR ® DEFINED BY SEKSTS SUBROUTINE 
736 JSR PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 
000137 033460 sts IMP 180$ ;GO TO 180$ IF ERROR WAS FOUND 
1605: 
004737 061416 JSR PC,CMPERRSTS | ;CHECK ANY ERRORS NOT MASKED 
117760 .WORD IAE!NDTMSK -MASK FOR RMERL 
000010 “WORD OPE ;MASK FOR RMER2 
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SEQ 0162 
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tS el AMER bei Gia ces Eitie s Hose Tk 
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Q0000———— 
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1 29-JUL-77 13:33 TS6 IVC SEEK TEST 
1 o00200 MOVB 8200, (R2)+ 
10 oo 043762 JSR PC, GETSTS ; SETUP FOR Sie 
4 044316 JSR PC’ PUT GO WRI G CE Rs VIA PUT SUB 
BR 30$ G0 TO 303 IF NO 
NOP ; F_ERROR 
1 ERROR “ERROR DEFINED BY PUT SUB 
% 000137 034064 at IMP 30S GO TO 90S IF ERROR WAS FOUND 
lS 004737 O44046 " «JSR PC, GET -GO READ REGISTERS VIA GET SUB 
BR 4o$ G0 TO F NO 
res ce “Edmee tr om 
Apora 034064 tins IMP 90s G0 TO obs Te ERROR FOUND 
owso42 "JSR PC. PRIERR GO CHECK FOR PRIMARY 
Sos BR sos ; 60 To’ sus IF ERROR ROR 
af 196000 ERROR + PROR. a Serihen By Pe IERR SUBROUTINE 
ne JSR PC, a(SP)+ ;GO BACK FOR MORE ERROR CHECKS 
IMP 908 -GO TO 90S IF ERROR WAS FOUND 
10000 001370 SOS: BIT BIVC, RMERZI s01D, INVALID Sonne SET?? 
0000 MOV sIVC T GOOD DATA FOR_TYPEOUT 
MOV RMERCT,SBDDAT  ;BAD DATA FOR TYPEOUT 
167777 BIC CIVC; SBDDAT 





at 
64 ;IVC NOT DETECTED 


ua 


aes A 
8= 
4 
ga 
a 
ee 
5 
: 
i 
$ 


a 


-G0 0 IF NO ERROR 
sRETURN FRE IE BY CMPERRSTS SUBROUTINE 


PC, SECERR ;GO CHECK FOR SECONDARY ERRORS 
90$ -GO TO SOS IF NO ERROR 


; IF ERROR 
Ree Ae IE BY SECERR SUBROUTINE 
PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 


ae 
a7e% 


gs KEY SKEL SHS KE RARER KE LESRSELESER ES ERSRE SLE RRELESE LEAR ERE ERE RSE ERE 
&TEST 57 ABORT SEEK TEST 
LEEKLE rf HERKEKHEAEFAE SEE 





5 
:START OF 
8STACK, SP pINITIALL STACK. POINTER 
TST aut. RI TRI) = bevice : ING TESTED 
#57, STESTN :;SET TE NORBER IN APT MAIL BOX 
PC 


0000S? 001226 ’ 
, TSTPRP ;PREPARE DEVICE FOR TEST 


ccnuenee § Ghaguaniauscaennae 
88 
i 
@ 
: 
de 
EG 
5 





SEQ 0164 
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TS? 


90S: 
001340 100$ 
001142 
001142 
001140 
O44656 110$: 
O44046 
034426 
120$: 
o4so42 
034426 
130S: 
060712 
034426 
140$: 
061416 
034426 
150$: 


ay BRAUN YET AADAIITEEE 


ne 
$ 


403078 3 


z 


29-JUL-77 14:32 PAGE 162 SEQ 0165 
TEST 
RMDCO ;CYLNDER = 0 
BSEEK? GO, RMCS10 > SEEK COMMAND ; 
Hales +{ }+ BRO UbuTput OEFER pele 
SareR| (Raye 
@RMCS1, (R2)+ 
#200 (Re) $ 
PC, GETS ; SETUP FOR STATUS FETCH 
PC’ PUT °GO WRITE REGISTERS VIA PUT SUB 
90$ G0 TO 908. IF NO 
: iF ERROR 
: INED BY PUT SUB 
160$  ;GO TO 160$ IF ERROR WAS FOUND 
PC, GET GO GISTERS VIA GET SUB 
100$ ;Go To 100$ ia 
: ir ERROR 
: GET SUB 
160$ _;GO TO 1608 IF FOUND 
aPIP, RMDSI sDID DRIVE START SEEK?? 
bps SBODAT § ;BAD DATA FOR TYPEOUT 
8*CPIP, SBDDAT 
SGDDAT ;G000 DATA FOR TYPEOUT 
65 > DRIVE NOT SEEK 
PC, TIMOUT *WAIT FOR GO TO RESET 
PC’ GET : READ GISTERS VIA GET SUB 
120$  ;GO TO 120$ IF NO 
OUR OCETNED BY cer SUB 
160$  ;GO TO ibe oF PRROn ee Founo 
PC, PRIERR GO CHECK FOR PRIMARY ERRORS 
130s *GO TO 130$ IF NO ERROR 
; RETURN HERE IF ERROR 
“ERROR ® DEFINED BY PRIERR SUBROUTINE 
PC, a(SP)+ GO BACK FOR MORE CHECKS 
160$ ;G0 TO 160$ IF ERROR WAS FOUND 
PC,STCDRVSTS § ;GO CHECK FOR IN DRIVE STATUS 
140s -GO TO 140$ IF 
RETURN HERE IF ERROR 
ERROR ® DEFINED BY STCORVSTS SUBROUTINE 
PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 
160 G0 TO 160$ IF ERROR WAS FOUND 
PC,CMPERRSTS  ;CHECK ANY ERRORS NOT MASKED 
NOTMSK!UNS MASK FOR RMERI 
DPE MASK FOR RHERe 
isos -GO TO 1S0$ IF NO ERROR 
RETURN HERE IF ERROR 
: 8 DEFINED BY CMPERRSTS SUBROUTINE 
PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 
160$ ;GO TO 160$ IF ERROR WAS FOUND 
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157 ABORT SEEK TEST 


JSR 
BR 


1$: 


10S: 


B 


Gg 4ge*usee Bgige*aessscees 4g0"58 S28 Sey 


PC, SECERR :GO CHECK FOR SECONDARY ERRORS 
1605 GO TO | F NO ERROR 


: RETURN HERE IF 
‘ERROR ® DEFINED BY SECERR SUBROUT LitGe. 
PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 
REREERESERRAKKERELRAARRLAS REAR ELE RS RESHELLAE 
SEEK AT OFFSET 
ZRERYPLRLSURERAREE SE 





iStaat OF TEST 
;LOAD ITERATION COUNT 


#1, STI 

#1$, 

#1$)SLPERR 

STACK, SP s INITIALIZE STACK POINTER 

eT Ro TO eee vice BEING TESTED 

ya A eer TEST MUMGER IN AB? RAIL BOX 
PC, TSTPRP -PREPARE DEVICE FOR TEST 


054130 ;TASK DESCRIPTOR 
20S -GO TO 20S IF NO ERROR 


RETURN HERE IF ERROR 
“ERROR ® DEFINED BY TSTPRP SUBROUTINE 
140S G0 TO 140S IF ERROR WAS FOUND 


“L SET COMMAND IN BUFFER 
-R2 POINTS TO REGISTER TABLE 


#PUTINX, Re : 
BRNO , (Re) + *WRITE REGISTER INDEX TABLE 
ens] | (Re)+ WRI NAT 
BER ut GO MeITE TESTERS VIA PUT SUB 
30$ GO TO 30S IF NO 
: iF ERROR 
: INED BY PUT SUB 
140$ _;GO TO 140s TF ERROR WAS FOUND 
PC, GETST ;SETUP_FOR STATUS FETCH 
PC; TIMOUT *WAIT FOR OFFSET TO COMPLETE 
1GO,RMCS1O ;L 
Hebi ite SEE ON EX TABLE 
$200, PUTINX+1 
PC, PUT WRITE REGISTERS VIA PUT SUB 


-GO 
so$ :GO TO SOS IF NO 

RETURN HERE IF ERROR 

“ERROR DEFINED BY PUT SUB 
140$  ;GO TO 140$ IF ERROR WAS FOUND 


PC, TIMOUT ;GO0 TO TIMOUT SUBROUTINE 


SEQ 0166 
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1 : T60 SEEK AT OFFSET 


2 
wi 
= 


044046 JSR PC, GET ;GO READ REGISTERS VIA GET SUB 






Bf BR 100$  ;GO TO 100$ IF NO 
Bf NOP > RETURN IF ERROR 
a7 ERROR “ERROR DEFINED BY GET SUB 
034774 ons JMP 140$ ;GO TO 1408 IF FOUND 
IGE o4so42 JSR PC, PRIERR GO CHECK FOR PRIMARY ERRORS 
B47r BR 110s -GO TO 110$ IF NO ERROR 
' NOP : RETURN HERE IF 
ERROR ‘ERROR ® DEFINED BY PRIERR SUBROUTINE 
JSR PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 
1 


1108: 


oe 
as GELIeN GOSHeN GIONS eaeG 
: 
ig 
: 
8 
2 
: 


CELE NEKEREREKEC Caer EE 





: 
7 
BR 1 GO 
NOP ; RETURN ERE IF ERROR 
ERROR : ® DEFINED BY SEKSTS SUBROUTINE 
ISR PC, a(SP)+ GO BACK FOR MORE CHECKS 
es 034774 “it IMP 140s G0 TO 140$ IF ERROR WAS FOUND 
061416 [> oe PC,CMPERRSTS | ;CHECK ANY ERRORS NOT MASKED 
ta! NO THK SNRSK FOR RRERS 
WORD DPE MASK FOR 
744 BR 130$ GO TO 130$ IF NO ERROR 
me NOP ; RETURN IF ERROR 
ERROR “ERROR ® DEFINED BY CMPERRSTS SUBROUTINE 
ree ISR PC, a(SP)+ GO BACK FOR MORE CHECKS 
Le 034774 oa JMP 140$ :GO TO 140$ IF ERROR WAS FOUND 
034760 045674 1. oa PC, SECERR GO CHECK FOR SE ERRORS 
BR 1405 92.9 10S IF NO ERROR 
NOP ; RETURN F 
104000 “ERROR # DEFINED BY SECERR SUBROUTINE 
Oai776 004736 : ISR PC, 3(SP)+ GO BACK FOR MORE ERROR CHECKS 
SUS. gs 29636 3-36 96 96 00-36 96 9 SS 2 0 a 9 2 a a a a a a a ak aa 
3086 tRTEST 61 OOK AHEAD TEST 
8087 © RPHERKGEGGREGREREARA AAS AAA AAAS RARER RRR ERE EERE EERE RES 
BOBE rm téTe1: hati ba 
809 776 oepoad NOP START OF TEST 
012706 001100 MOV SSTACK, SP INITIALIZE STACK POINTER 
013700 001276 MOV ; 
10 61370 001446 MOV TSTQUE,R1 *(R1) = DEVICE BEING TESTED 
teal 14 13997 000061 001226 MOV #61, STESTN SET TEST NUMBER IN APT MAIL BOX 
053210 JSR PC, CNTCLR 
10$ GO TO 10$ IF NO ERROR 
BRROR RETOUR NURGER DEF ineD BY SUB 
610 bpora? 035446 IMP 160$  ;GO TO 1608 IF SEnORT Whe EouRo 
10¢ 13746 MOV RRVE -(SP) _—_; ;PUSH ERRVEC ON STACK 
bits OL HOV ERaVEC $2, -(GP fetes echo. 
8105 012737 MOV SPRE ERRVEES2 ; 








SBIR i 


te bs Bs f+ Ge bh &— eee 
WDNIDUNL WMU-O 


RS fee Rs ime Be ae Be Be ae ee a a se ee he pe be fe pe ee fs Be ht be ee Be ee ee 


ESS LFHESHHASSBVKRSERH-BIBVRRPSVLY 


ee a ell ell col 


~ESEVRRLO= 


=— 


J13 
> tans Soe TEST PART 1 _ sala 14:32 PAGE 165 SEQ 0168 


a 
— 











035064 012703 #33. ,R3 ;RISSAMPLE COUNT 
re 01 001430 rv FMT 16, RMOFO ; SB 
6 001376 nov ! mano ker sRECALIBRATE COMMAND 
ete Hoy ase ac6O, 
1 MOVB = SRMDA, (R2)+ 
i rove serge (Re) 
‘ 1% MOVB 8200 i yaa 
a3 iss sab JSR se00, (06) 
ie 1 { ISR pe PUT 20 Te GO RITE REGISTERS VIA PUT SUB 
1k, ig NOP a WERE te ERROR pee 
1 ae 150 co To 1808 IF paar FOUND 
i a. y pC, Tnout HAT AD RESISTERS VIA GET SUB 
BR 4o$ GO TO “bs IF 
ERROR ERROR DEF IRED BY By am T SUB 
ie IMP 1S0$ ;GO TO if IF 
“ «JSR PC, PRIERR ;G0 CHECK FOR PRIMARY ERRORS 
BR so$ G0 TO. SOS IF NO ERROR 
ERROR Bar ee on TER ERR SUBROUTINE 
ISR PC, a(SP)+ in BACK CKS 
at IMP 1S0s G0 TO 1S0$ IF ERROR WAS FOUND 
60S: HOV #BUF FER, RY ;R4=ST an 
70S: HOV RIL ACRO) , (RM) sSTORE RALA SAMPLE 
CMP aay : i Be oriee LOE oe 
BEQ go$ *YES!! 
DEC RS : TIMEOUT?? 
BNE 70S NO = AGAIN 
BR 100$ ‘PROGRAM TIMEOUT 
80S: ADD #2,R4 ADVANCE STORAGE ADORE 
DEC Ra weer TAKEN? ? 
90S: CMP AAeACROD, Re *WAIT FOR CHANGE 
BNE 70S “YES?! 
pee Se ; TIMEQUT?? 
3NO 
100S: ERROR a2 PROGRAM TIMEOUT 
110$: MOV ies R3 :R3 = NUMBER S 
MOV #3700, Re -RO = MAXIMUM SAMPLE 
MOV RY ;R4 = eulttr 
001430 BIT a£716, RMOFO “WAS SAMPLE FOR 16 BIT MODE?? 
MOV #30. ,R3 “CHANGE COMPARE COUNT AND 
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1 1 003500 
a1 He 
000100 





@oaoa 
— 


2E8=SSBLERIBR=B Basa ZINA-SSSUF 
; ae oe BRR Be 


001430 





001226 


= bb 0 Bb 0 P= Fb Ob 0 b= be et bh be bb be = pt 


S588 
eee 
SBHe 
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Tol LOOK AHEAD TEST ame Gies 
MOV #3500, R2 
120S: wy Loe i087 a aes Pees 
ae i 4 
1308: (RY) Te cy EE PETER 
BEQ ;YES!! 
e. it EE 
MOV (R4), T 
ERROR a3. *FAI IN LOOK AHEAD TEST 
140$: DEC R3 ALL, SAMPLES CHECKED?? 
BNE 1208 3NO 
T SFMT 16, RMOFO pe TEST?? 
be0%o *SETUP FOR 18 BIT MODE 
BR a N 18 BIT MODE 
wes. Be Be,csrre (RESO 
"OV (SP)+, +2 pop $7 INTO ERRVEC+2 
coe MOV (SP)+, ;;POP stack INTO 
gs 0% REGGAE ARGS RSE RAAA AAA AAS R RRA REAR ERR AA LR REES 
:RTEST 62 SEARCH ON CYLINDER 
ee i BPRARRSSEREREE RERAARKLEE 
t$Tee2: 
; 
T Nitta ze aeek. POINTER 
TST RL (8 ) ioe 
see, T PALL BOX 


UeCreccceeeeetr gticnoc 


O54130 ; TASK veiserenn 
G0 TO 80S IF NO ERROR 


saul ot Pee 
yO = ttle 


ie 


— 
je 3 


SESS 
sees 


SEEK? GO RMCS10 ; 

NX, Re REGISTER INDEX TABLE 
SODA, d+ FOR SEEK TO CYLINDER O 

SUE f )+ 

eRNCS! . (R2)+ 

pe r (Ra) F ATUS FE 

PC? 35 UR IRLTE ReGL Payee Wi PUT SUB 
30$ G0 TO 


IF_NO 
; RETURN HERE I IF _ ERROR 
;ERROR DEFINED BY PUT SUB 
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; : Té2 SEARCH ON CYLINDER 


IMP ge :GO TO 190$ IF ERROR WAS FOUND 
90S: JSR PC, 


TI 
JSR PC’ GET VIA GET SUB 
100s 00 vo 1008 TF a Eswn 





BR 
NOP 
ERROR ObFIneD BY coy SUB 
: ial IMP 190$  ;GO TO ise IF ERROR WAS FOUND 
tk " ‘JSR PC, PRIERR 360 CHECK FOR PRIMARY ERRORS 
ix BR 116s 1 F NO ERROR 
tk NOP ; RETURN 0 
a: ERROR a acapal j ERROR # DEFINED BY PRIERR SUBROUTINE 
2: ‘ane JMP 190s phen ;G0 TO 1908 IF ERROR AS FOUND 
tk " ‘JSR PC, SEKSTS GO VERIFY a: OF SEEK OPERATION 
ik BR 1208 F NO ERROR 
a meee 
ik ERROR ERROR ® DEFl SUBROUT INE 
ISR PC, 3(SP)+ CKS 
JMP 190$ TO 1908 I WAS FOUND 
001376 120$: MOV ae | 
JSR . VIA PUT SUB 
BR 130$ = ;GO TO is IF 
ERROR SUB 
so IMP 190$  ;GO TO if IF Be or Caron B gy Fut FOUND 
> Jae PC, TINOUT ;WAIT FOR TO COMPLETE 
JSR °GO READ REGIS VIA GET SUB 
BR TSS GO TO 140$ IF NO er 
ERROR i ReRDR OFT : D gv cet SUB 
nal IMP 190$  ;GO TO 180S IF ERROR 
* ‘JSR PC, PRIERR GO CHECK FOR PRIMARY ERRORS 
BR 1sbs -GO TO 1 F NO ERROR 
NRROR iF EROR ie BY PRIERR INE 
ISR PC, a(SP)+ GO BACK Nope taRGA eee 
Ba JMP 190s GO TO 190$ IF ERROR WAS FOUND 
ey PC, SCHSTS ;GO VERIFY 
aR 160$ -GO TO 160$ ae ERROR 
ERROR RETURN PERE IE BY SCHSTS SUBROUTINE 
ISR PC, a(SP)+ in ee FOR ERROR CHECKS 
io IMP 190s ;G0 TO 190$ IF ERROR WAS FOUND 
aoe Sn PC,CMPERRSTS | ;CHECK ANY ERRORS NOT MASKED 
-WORD  NOTMSK *MASK FOR RMERL 
gor hs FO PEE ro IF no ERR 
NOP ; RETURN fee oe ERROA 
ERROR ERROR & ePINED BY CMPERRSTS SUBROUTINE 
ISR PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 





OZRNCA. P11 
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CYLINDER 





on IMP 190 GO TO 190$ IF ERROR WAS FOUND 
JSR PC, SECERR ;G0 CHECK FOR SECONDARY 
mi 9 
ERROR eae NED BY SEC SECERR SUBROUT INE 
JSR PC, a(SP)+ 0 as P 
180S: the pelts CASE Fe ESPON — 
eis Bae ALL SECTORS?? 
tt 16, RMOFO i ‘ib BIT FORMAT DONE?? 
ay ie 
MOV 1, RMOFO ‘ie BIT FORMAT 
MOV #31. MUM SECTOR ADDRESS 
MOV RMDAO Lint AT TESTOR 0 
JNP es$ GO TEST 16 BIT MODE 
190$: 
H a” ee 
ETE CYLINDER 
+éT63 
SCOPE on 
NOP 
HOV SSTACK, SP : oe POINTER 
*( 
Moy TSTOUETRI if 
MOV #63, STESTN : RIN ee ay TAR BOX 
JSR Pc, TSTPRP ue 
.WORD 054130 ;TASK DESCR 
BR 80S 260 TO 80S IF NO ERROR 
ERROR sar es TSTPRP SUBROUTINE 
IH oe Dabs IF ERROR WAS FOUND 
MOV * BHD 8 ; START WITH 8 BIT MODE 
MOV #29. ,RY feet hat OR ADDRESS 
MOV #41 +R 
MOV #412. 
MOV 1G0,RMCS1O } +L 
Oy ORBaT thax 
MOV ePUTINY R2 TOBLE 
MOVB , (R2)+ i asteR INDEX TABLE 
MOVE - SRMDC, (RO) + °F 
MOVB (Re)+ 
MOVB 1. (R2)+ 
MOVE 8200, (Re)+ ; TERMINATE 1A 
Jen Pc, GeTsts 185 URI UntTe Regt ERS VIA PUT SUB 
BR 10  ;GO TO 1008 IF ERROR oe 
NOP jRETURN HERE I 
ERROR IED 8 BY iat SUB 
MP 2308 ;G0T02 F 


SEQ 0171 





MACY11 30(1046) 29-JUL-77 14:32 PAGE 169 SEQ 0172 
T63 SEARCH OFF CYLINDER 


100$: JSR PC, TIMOUT ;WAIT FOR 
JSR PC: GET re ie STERS VIA GET SUB 


GO 
BR 116s = ;G0 To al 
a Lat aitacaee 
IMP 2308  ;G0 TO 2408 IF ERROR 





1108: 
JSR PC, PRIERR ;G0 CHECK FOR PRIMARY ERRORS 
BR 120 Tod F NO ERROR 
sBETURN INED BY PRIERR SUBROUTINE 
ISR PC, a(SP)+ GO BACK FOR CHECKS 
siti IMP Shs G0 TO IF ERROR WAS FOUND 
" ‘JSR PC, SEKSTS ;G0 VERIFY OF SEEK OPERATION 
BR 1305 To F NO ERROR 
ERROR i RROR & TS SUBROUTINE 
13k (SP)+ G0 BACK ™ sane 
: 130$: MOV 
3, MOV #G0,RMCS16 
5. ISR I ERS VIA PUT SUB 
BS BR 140s = sGO TO 1408 IF 
B35 HOROR ry PUT SUB 
B35E oR 2308 —Ct(; ERROR tee FOUND 
: ee: he i ee 
a3 BR 150$  ;GO TO Bs 
Be ERROR GET SUB 
a3 isos, P| P8060 TO 2408 IF ERROR Este 
B36 uae & PC, PRIERR 360 ee eo PRINERY ERRORS 
x2 160$ F NO ERROR 
Ke NOP 
: RoR 
B3¢ SR pC ,g(SP)+ 
3365 eon ae TO Bf FOUND 
537 "JSR PC, SCHSTS ;60 VERIFY Sec 
i BR 170S ig 178 YF Ms OERROR 
u So, Tea ers ERO 
71 fe eats :00°T0 TP ERROR HAS FOUND 
371 " ‘JSR PC,CMPERRSTS § ;CHECK ANY ERRORS NOT MASKED 
375 - WORD tMSK >MASK F 
© ; MASK F 
36 BR 180 ee o. 1908 IF NO ERROR 
Be iP EROR 8 INED BY TS SUBROUTINE 
36 ar PC, a(SP)+ Eo BACK NORE ERROR CHECKS 
IMP 230$ ;G0 TO 230$ IF ERROR WAS FOUND 





B14 





SEQ 0173 


t 

g 
: oe 
Eset 
ha 

' & + 

ie be Se tere 
SS napinnuees 
pg Co 
te 
Bi a es 
3 


are 
Pil 


: DOW, BOTH FORMATS?? 
;START 16 BIT TEST 


;00 NEXT SECTOR 


RS=SEEK 
iStaat a 


oct 
eS 
dismeeeees 


16, RMOFO 


10S: 


™ 


d Besos 


001430 


wa — 


i eer 





RELRLLEE 
RELRLE LLL ELEALLLLE 


VIA PUT SUB 


Tee nen TR APT RIL. 80x 


;RO=UNIBUS ADDRESS 


y 
3¢ 
Hy 


iT orl Sac POINTER 


th 
= 
; 
' 
5 
Ss 
g 


wwe « 


E- : elie 
B, tlle 


BE SDEDREDREEESEER 


SEARCH INVALID SECTOR 


g 


P agaeeeen: 
SOBSS OF SSSS SSNS 
ce Fi gy yues tes PeRRasSEN EE 


HASSuagasaaaeaaanae 


TELELELEEE eee eee eee eee LE 


00137 037160 


B88 
SREBE 
bbodoD 





2222 
~ 


eRRERSER UT LTTE. RERERERE 


WIV 1 


BERKS 


BP Fa bb he ee 





BERERERSRS SIS 
PREPARE TSSRIE 


Ba = fee et 0 bh bP pe 


NEGRLHSEESR 


ss 


oe 


"3 
$ 

He 
: 


SEIGen Ges 


anf 


as 
— 
Ret 


Sue EIES GELS 


001142 


001404 


MACY11 30( 1046 
T64 SEARCH 
100$: JSR 
JSR 
Nn 
JMP 
1208: 
JSR 
BR 
JSR 
JMP 
130$: BIT 
BNE 
MOV 
MOV 
BIC 
ERROR 
140$: 
JSR 
BR 
NOP 
ERROR 
JSR 
JMP 
150$: 
JSR 
. WORD 
. WORD 
BR 
NOP 
ERROR 
JSR 
JMP 
160: 
JSR 
BR 
NOP 
ERROR 
JSR 
170$: INC 
CMP 
BLO 
JSR 
BR 
NOP 
ERROR 
180$: JMP 
190$: 


29-JUL- 4:32 PAGE 171 74 
INVALID SEC on oe 
PC, TIMOUT WAIT 

Pe’ Get OO READ REGISTERS VIA CET SUB 

120$ G0 TO 10s IF NO eT 

aes SUB 

170$  ;GO0 TO F IF CERO Wee FOUND 
PC, PRIERR ;GO CHECK FOR PRIMARY ERRORS 

130s -GO TO ero NO ERROR 

See IERR SUBROUTINE 

PC, 3(SP)+ GO BACK FOR CHECKS 

70s GO T IF ERROR WAS FOUND 

SIAE, RMERII 3010, IRE 4 


1 e 
SIRE ,SGOOAT EXPECTED STATUS FOR TYPEOUT 
RMERII,SBD0AT RECEIVED STATUS FOR TYPEOUT 


8tCIAE, SBDDAT 

257 ;IVC NOT DETECTED 

PC,STCDRVSTS § ;GO CHECK a ia IF IN DRIVE STATUS 
1S0S NO ERROR 


ERROR eee es 

INED BY STCORVSTS SUBROUTINE 
ty shea CHECKS 
1 ye TO 1 IF ERROR WAS FOUND 


TS  ;CHECK ANY NOT MASKED 

ROtrSK! iteeeeon AER 
160$ _— OR Fare TO. 1608 IF NO ERROR 

met EP INED BY CMPERRSTS SUBROUTINE 
PC, a(SP)+ MORE ERROR CHECKS 
170 BAK EO TO 1708 Ir ERROR AS FOUND 
PC, SECERR GO CHECK FOR SECONDARY ERRORS 
170 GO TO I F NO ERROR 

; ERROR Cini ¢ DEFLAED BY SECERR SUBROUTINE 
PC, a(SP)+ ‘So ent F OR MORE ERROR CHECKS 
RMDAO ; INCREMENT SECTOR ADDRESS 
831. , RMDAO : DONE? ? 
190$ :YES!! 
PC. CNTCLR 
180$ —§ ;GO TO 180$ IF NO ERROR 

RETURN HERE IF ERROR 

“ERROR NUMBER DEFINED BY SUB 
90s TEST NEXT SECTOR 








, RRARRRK ARR RRR Re 
NOW EW ‘ 


ee 


ty 








t 





+ 
vt 





TAG 
+ 


Beene eet oe AaM MR GBRe RS 


ae 
o£crr 


N 


+ 


thts 


NS 
A 


) 
1 


- 
& 


Eces Suen Wars 


mn 


RMOS FUNCTIONAL TEST, PART 1 
1 29-JUL-77 13:33 


SSH! GUNN GLEOENE 





O446S6 100$ 
037520 

110$: 
o4so4e 


037520 
002000 O0i34e 1208: 
002000 001140 


MACY11 30(1046) 
T64 SEARCH 


Se ees ee Besssssesss age geeeeee 


D14 


29-JUL-77_ 14:32 PAGE 172 SEQ 0175 


INVALID SECTOR 





i soo Gr TEST 
SSTACK, SP : NITIALIZE ACK POINTER 
pa Pe Vite BET 


NUPBER IN APT RAIL BOX 
PC, tSTPRP “PREPARE DEVICE FOR TEST 


g58130 TASK DESCRIPTOR 
-GO TO 80S IF NO ERROR 
sReTURN eRe TE ERROR 
ERROR ® DEFINED BY TSTPRP SUBROUTINE 


180$ ;G0 TO 180S IF ERROR WAS FOUND 
#0, RMOFO -SET 18 BIT FORMAT 
#002400. RMDAO iat We TRACK 5S, SECTOR O 
#0, RMOCO *CYLINDER=0 
SSEARCH!GO,RMCS10;SERRCH COMMAND 
SPUT NX Re ;WRITE REGISTER INDEX TABLE 
8RMDC, (R2)+ 
aRMOF (Fe) 
@RMCS1. (R2)+ 
#200, (R2)+ ; TERMINATE TABLE 
PC, GETSTS 
PC, PUT -GO WRITE REGISTERS VIA PUT SUB 
1008S  ;GO TO 100$ IF NO ERROR 

EUR OE ned ey Pur SUB 
160$  ;G0 101 F pera Dae FOUND 
PC, TIMoutT ;WAIT FOR GO TO RESET 


GET *60 RE VIA GET SUB 
1105 Go To 110s a ERR 


sRETURN HERE IF ERROR 
*ERROR DEFINED BY GET SUB 
160$  ;GO TO 160$ IF ERROR WAS FOUND 


PC, PRIERR GO CHECK FOR PRIMARY ERRORS 
120 -GO TO 1 F NO ERROR 
;RETURN HERE IF 
“ERROR ® DEFINED BY PRIERR SUBROUTINE 
PC, 9(SP)+ GO BACK F 


-GO TO 1608 I WAS FOUND 
OTAE , RMERLI ;DID “IAt™ SET?? 


#IAE, SGODAT ‘EXPECTED STATUS FOR TYPEOUT 





E14 








DZRMCA - RMO3 FUNCTIONAL TEST, PART 1 MACY11 30(1046) 29-JUL-77 14:32 PAGE 173 SEQ 0176 
DZRNCA.P11  29-JUL-77 13:33 T6S SEARCH INVALID TRACK 
8554 037442 013737 001342 001142 MOV RMERII,SBODDAT  ;RECEIVED STATUS FOR TYPEOUT 
8555 037450 042737 175777 OO0114e BIC #*CIAE, SBDDAT 
3745 104257 ERROR 257 ;IAE NOT SET DURING SEARCH 
ae 1 
137460 004737 061416 " ‘JSR PC, CHPERRSTS CHECK ANY ERRORS NOT. MASKED 
Beet ines bbe 1B ARSC x roll eee 
037470 OO040S BR 1SOS GO TO 1S50$ IF NO ERROR 
aay og 1Ds000 NOE OR ReTUEN ee BY CMPERRSTS SUBROUTINE 
726 JSR PC, 3(SP)+ GO BACK FOR MORE ERROR CHECKS 
000137 037520 a IMP 1606S ;GO TO 160$ IF ERROR WAS FOUND 
BS5E ut 045574 , PC, SECERR GO CHECK F 
19 N04 oS ca 1605 Cb TOES TE ND ERRGR 
Beat tf ree ERROR RETURN Fane Tr Exon BY SECERR SUBROUTINE 
ISR PC, 3(SP)+ iE BACK FOR MORE CHECK’ 
000400 001404 160$: ADD #400 INCREMENT TRACK 
Bere ae ee oir #4000 — sont meet 
010000 001430 BIT SFMT16,RMOFO  ;DONE 16 BIT MODE?? 
101 BNE 180$ *YES!! 
eid 010000 001430 MOV SFMT16,RMOFO ;SET 16 BIT FORMAT 
12737 002400 001404 MOV #002400,RMDAO  ;START WITH 
170S: TEST NEXT TRACK 
BSE 053210 JSR PC, CNTCLR 
BSB. BR 178§  ;GO TO 175$_IF NO ERROR 
BSE 0 NOP RETURN HERE IF ERROR to 
Bepe =: 037574 iootay 037344 175S: oe . 90S ie 
037600 180S: 
3 33 KH LEESRLELERXSLRRERBSLSES 
BS TEST 66 SEARCH INVALID CYLINDER 
BS ona —— vane 
037600 000004 SCOPE ; CALL 
BC isan OF TEST 
BS 1270 001100 MOV aSTACK NITIALIZE STACK POINTER 
e 10 Ol 001276 MOV * RO=UNIBUS 
8599 037614 013701 001446 MOV TSTQUE.R1 7(R1) = DEVICE BEING TESTED 
B00 037620 O01 000066 001226 MOV #66, STESTN ::SET TEST NUMBER IN APT MAIL BOX 
Bote 037626 00737 043046 ISR PC, TSTPRP :PREPARE DEVICE FOR TEST 
130 -WORD 054130 ;TASK DESCRIPTOR 
aa fatal BR 80S -GO TO 80$ IF NO ERROR 
NOP ;RETURN HERE IF ERROR 
Bots iovo09 ERROR ERROR # DEFINED BY BY TSTPRP SUBROUTINE 
137 o40204 IMP 190 90$ IF ERROR WAS FOUND 
8608 012737 000000 001430 80S: MOV #80, RMOFO SET 18 ig? FORMAT 
8609 012737 000000 001404 MOV #0; RMDAO : TRACK=SECTOR=0 








F14 






DZRNCA - RMO3 FUNCTIONAL TEST, PART 1 MACY11 30(1046) 29-JUL-77 14:32 PAGE 174 SEQ 0177 
DZRMCA.P11 simatic 13:33° Téb SEARCH INVALID CYLINDER 
001467 001432 MOV -START AT CYLINDER 823 
ee 000031 001376 MOV SEARO I RMCS10; SEARCH COMMAND 
Hites ioe le Sageeiait HITE ReSISTEN Tox Tas 
* (Ro)+ 
see te} 
ee yee 
8200, (Re)+ 
004737 ates ISR PC, GETSTS ;SETUP STATUS FETCH 
004737 " ‘JSR -GO WRITE REGISTERS VIA PUT SUB 
tall BR 100$  ;GO TO 100$ IF NO 
ERROR NED 
HO gras i co 70 Se Basted rato 
SWORE _—* to Pe, runout VIA GET SUB 
ee BR 116§ G0 TO ils TF 60 READ RecrareRs 
NOP F ERROR 
ERROR i ERO Fae GET SUB 
137 040126 oa IMP 160$  ;GO TO 160S IF WAS FOUND 
737 o4so42 or ae PC, PRIERR 360 CHECK FOR PRIMARY ERRORS 
: BR 120$ To 120s IF NO ERROR 
NOP ; RETURN F 
: 736 ISR PC, a(SP)+ yoy St S Oe PORE Ron creck g ” 
040126 IMP fe, a rnedbe 19,1608 IF ERROR WAS FOUND 
fe 001342 4120S: BIT ‘ RMERLI 51S TIRE" ? 
01 002000 MOV i SGDDAT EXPECTED STATUS FOR TYPEOUT 
1 001342 001142 MOV RMERII,SBDDAT  ;RECEIVED STATUS FOR TYPEOUT 
eet 175777 001142 BIC #*CIAE, SBDDAT 
104257 ie ERROR 257 ;IAE NOT SET DURING SEARCH 
004737 060712 * ‘JSR PC,STCDRVSTS | ;GO CHECK FOR CHANGES IN DRIVE STATUS 
000405 BR 1405 GO 79. 140$ IF NO ERROR 
eres HOROR iF RROR OR Phat DeFite BY TS SUBROUTINE 
nites ERROR pc, a(SP)¢ Nike ERROR CHECKS 
000137 040126 aaa JMP 16S GO TO 160$ IF ERROR WAS FOUND 
004737 061416 * ‘JSR PC CHPERRSTS CHECK ANY NOT MASKED 
117760 .WORD IAE!ND oft FOR RMERI 
Dooce BR ore fo . F NO ERROR 
Rp aan ie oe! Eraon 
10 S SUBROUTINE 
1 FR ¥ PC, a(SP)+ Ly BACK or RnOR 
10 000137 040126 cad IMP 1660S ;GO TO 160$ IF ERROR WAS FOUND 
il 90n7 37 045674 " ‘JSR PC, SECERR GO CHECK FOR SECONDARY ERRORS 
11 BR 1605 -GO TO 160$ IF NO ERROR 
120 00240 NOP ; RETURN FERE IF ERROR 
lee 404000 ERROR ERROR ® DEFINED BY SECERR SUBROUTINE 
124 736 ISR PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 





G14 


SEQ 0178 


ve 
:: 6 Ce : 
ef 5 z : F Be 
eee te 
ep EC cee 5 ing fe stieee : 
bE ge : Soul ¢ ovGe Be gist 9.88 
Tee 
t tee i on Eu Resi 
: E E EE . : oat ‘. = a 
5S ez sa: | mp nn aed 
ieee ied Ge ibe, Sen 
eS ccuns fethe J SREBEE Bis ‘: SEDiaDERBEREBREEESS 
wi «6§l 6c OBE . 
BeS 
meeg | see | f Bee 





Misa Sehee BaSBeR os Se 
. SeEpeEeeeE! ees Be 
i TN EUSTEEAGE ENE tsieeeeerenpenReacrererss 


RMOS FUNCTIONAL TEST, PART 1 
1 = 2@9-JUL-77 13:33 


1 





H14 


est PART 1 29-JUL-77 14:32 PAGE 176 


F 
M3 


VIA PUT SUB 


Eee 2 ERR 
mo 


i REROR DEFINED BY cet 
: INED BY GET SUB 
;GO TO 160$ IF ERROR WAS FOUND 
GO CHECK FOR PRIMARY ERRORS 
GO 19 1 F NO ERROR 
sRETURN ERE ED BY PRIERR SUBROUTINE 
GO BACK per NORE ERROR CHECKS 
;G0 TO 160$ IF ERROR WAS FOUND 
i010, Ive SET?? 
EXPECTED STATUS 
RECEIVED STATUS 
sIVC NOT SET DURING SEARCH 


Sein & 
: 


a8 


;CHECK ANY ERRORS NOT MASKED 
. RMER 
;MASK FOR 
;GO M9. IF NO ERROR 
I BY TS SUBROUTINE 
HORE s 


ERROR 
;G0 TO 160$ IF ERROR WAS FOUND 


oO OTE FO Igoe TF ND ERROR 


ty ee nie TINE 
PC, a(SP)+ EO ACK FOR NORE ERROR CHECKS 


;  SHHODEDOREEOMENNDESOSOSONEENELEDEREOOEEEEREORESIOEESOGUDDEOEOS 


70 
ireiititirrtittiiiitititiiiti ti tiitii titi tiittt tr tt titi ey 


t$T70 


seis Gees 


; SCOPE 
od OF at 

SSTACK, SP ; INITIALIZE STACK POINTER 
RO=UNIBUS 


TST ARL, FcR) geOeVAneBeING TESTED, 


PC, TSTPRP -PREPARE DEVICE FOR TEST 
054130 ;TASK DESCRIPTOR 


ce wae 
EE 


: 
5 
: 
BS 
es 
: 
: 
8777 


bo 
or 
y 












114 
FUNCTIONAL TEST, PART 1 MACY11 30(1046) 29-JUL-77 14:32 PAGE 177 SEQ 0180 
29-JUL-77 13:33 170 ABORT SEARCH TEST 
000404 BR 80s -GO TO 80S IF NO ERROR 
NOP ; RETURN HERE IF ERROR 
ERROR ‘ERROR ® DEFINED BY TSTPRP SUBROUTINE 
IMP 160$ . T9608 IF ERROR WAS FOUND 
1 do1uie 80S: MOV SUNS RMERLO SET 
1 1 001376 MOV SSEARCH!GO,RNCS1O COMMAND 
1673 000000 001432 MOV 80, RMDCO -CYLI 0 
1 000000 001404 MOV 80; RMDAO : SECTOR= =0 
1 1 MOV sPUTINX, Re WRITE REGISTER INDEX TABLE 
i Ove , (Re) + 
1 (R2)+ 
il 000014 MOVB  SRMERI, (R2)+ 
il 000000 MOVB = SRMCS1. (Ro)+ 
ie 000200 MOVB 8200, (Re) + ; TERNINA 
O437be JSR PC, GETSTS EGR ST TATU 
004737 316 JSR PC’ PUT ioe TUE VIA PUT SUB 
000404 BR 90$ G0 TO ob§ F iD 
aed ERROR F at Reur SUB 
000137 041130 “ee IMP 160$  ;GO TO ik IF Peron WAS FOUND 
004737 O44O4S a PC, GET REGISTERS VIA GET SUB 
tat BR 100$  ;G0 TO 160s oo Ro 
NOP : RETURN = ir ERROR aa 
ore Oogi37 041130 FRpor 160$ _—_;GO TO ie TE pean Dee FOUND 
, 020000 001340 4100S: BIT aPIP,RNDSI ; i1S PIP SET?? 
Weta 000000 001140 ea T SEXPECTED ST STATUS 
O1 3737 001340 001142 MOV RMS SBODAT  ;RECEIVED STATUS 
1 001142 BIC 8*CPIP, SBDDAT 
1004 104261 ERROR 261 jDRIVE DID NOT ABORT SEARCH 
8810 O41 737 O446S6 110$: JSR PC,T MOUT “WAIT F TO RESET 
Bg! ! i O44O4G ISR pc? ite IF VIA GET SUB 
1 l ;G0 TO 1 
Seta oMibee 194000 HOFOR HETRED BY Get. SUB 
Bi ites Nea 041130 con FR 160$  ;GO TO iEeroe IF watae Dae FouNO 
1 1 737 o4so42 "JSR PC, PRIERR G0 CHECK FOR PRIMARY ERRORS 
ge i BR 130s ise To. F NO ERROR 
he die FE re arses OPEL re ere sere 
Biss 50139 041130 ‘i Tie tat TO 1 WAS FOUND 
; T T CK FOR N ) 
SS ire ae PC ,STCORVSTS GO CHE fH IN DR STATUS 
1 1 ERROR pera Fee Tr canoR BY STCDRVSTS SUBROUTINE 
1 00473 JSR PC, 3(SP)+ Doge BACK FOR HORE 
1 137 041130 ae IMP 160$ G0 TO 160$ IF ERROR WAS FOUND 
1 O41 004737 061416 oe PC,CMPERRSTS | ;CHECK ANY ERRORS NOT MASKED 
8838 at 55760 NOTHSK? UNS -MASK FOR RMERI 
1 10 WORD ;MASK FOR RMER2 


J14 





ined BY PUT 
pevcesre ™ ad FRO nF rate 


orACS] PUTI INX ;LOAD REGISTER INDEX TABLE 


Mea seer Satie weisters i 
VIA PUT SUB 
Moos” G0 TO 11g IF 


1905  ;G0 TO 1 se eet a ou FOUND 


JSR PC, TIMOUT ;WAIT FOR SEARCH TO COMPLETE 





130$: 


- RMO3 FUNCTIONAL TEST, PART 1 MACY11 30(1046) 29-JUL-77 14:32 PAGE 178 SEQ 0181 
Pll  29-JUL-77 13:33 T70 ABORT SEARCH TEST 
041100 000405 BR 1S0$ G0 TO. 1SOS IF NO ERROR 
ll NOP RETUON lene Te ERROR 
il 726 cn PC, a(SP)+ iE Eres D DE ERM CEGS 
it 000137 041130 ail IMP te CO" 10 tos OP ERROR Bas FOUND 
iis 004737 045674 7 JSR PC, SECERR ;G0 CHECK FOR SECONDARY ypRORS 
i Peet ia . ERROR 
Liga NOP . RETURN ° F RR cd 
Liss aad ae oR , PC, a(SP)+ + EO BrICK PER WERE LeROR crete Ms 
5 pera, RH AL OFFSET. 
ll } jpeeeenssonneneuseseoeansets LEBRERERERES LSU SE ERE 
11s 001100 MOV aSTACK, SP iSTaRT OF IZE STACK POINTER 
1140 Ol 001276 MOV SBASE RO : RO=UNI ROORE SS 
1144 01 1446 MOV TSTQUE,R1 (R )= ING TESTED 
1180 i Soda 001226 MOV 871, $TESTN iterh N 6 ger MAIL BOX 
11 043046 JSR Pc, tSTPRP DEVICE F 
116 54130 . WORD 54130 ; TASK pein na 
BR o2 10. 608 IF IF NO ERROR 
1166 o00240 NOP : 
tie ae a FE FBR ER 
i2 i NOV 0 RoC 
1 ! MOV sF AT HOF *16 ie FORMAT 
1 MOV #OFFSET!GO,RMCS1O “OFFSET COMMAND 
is Ry, Hees, eee HO en wen 
i536 ii i 
1 ll MOVB = SRMOF. (Ro) + 
1 1 MOVB aancs| (Re)+ 
i MOVB (R2)+ 
JSR PC, PUT -GO WRITE REGISTERS VIA PUT SUB 
1 ast BR 90$ GO TO 
: NOP 
is 
Bien Bayt iS 
1 004737 JSR 
i ies? Nove 
1 1 MOV 
i aR 
1 NOP 
1 ERROR 
i IMP 
O41 





FESREROSRS 


2 & 
q 
: 
# 
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22 


Be Bae bat Pee eae Fe be Be Bee Gee oe ee te be ee 


££ 
pearens 


ac 





fo be es bee pee Be 


S333 
Pees be 
DONDMUN LUI 





000137 041472 


Bae Poe Be fim Be hee |e Bae bo Get ps 0 ee Pee Bs fee fm es 


NAF EKER ONE LRSRERRO EE: 


041472 000137 O42000 


Rasp htcals 


b= Os Ba Be be bee 
as 
[oo 
so 
8 F2- 
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001226 


K14 


MACY11 30(1046) 29-JUL-77 14:32 PAGE 179 
T71 SEARCH AT OFFSET 


ISR PC, GET GO READ REGISTERS VIA GET SUB 
BR 140$ — ;G0 TO 1403 IF NO ERROR 
SRE oR SUB 
sat JMP 190$  ;G0 TO ite IF ERROR WAS FOUND 
* ‘JSR PC, PRIERR 360 CHECK F Ag PRIMARY ERRORS 
BR. iss S08 IF NO ERROR 
ERROR ma eae PRIERR INE 
ISR PC, a(SP)+ ERR Seeks ” 
oe IMP 190s ;G0 TO 190$ IF ERROR WAS FOUND 
" ‘JSR PC TS :G0 VERIFY TION 
BR 1 60, "0, i F 
ERROR 45 # DEFI TS INE 
BY nao. EL ern aren 
nn IMP 190s -GO TO 190$ IF WAS FOUND 
oS aa PC,CMPERRSTS | ;CHECK ANY ERRORS NOT MASKED 
.WORD  NOTMSK "MASK FOR RMER 
“WORD DPE ;MASK FOR 
BR 170 9 170$ IF NO ERROR 
NOP ; RETURN F 
ERROR “ERROR ® DEFINED BY CMPERRSTS SUBROUTINE 
ISR PC, a(SP)+ GO BACK FOR HORE ERROR CHECKS 
aan IMP 190s ;G0 TO 190$ IF ERROR WAS FOUND 
* ‘JSR PC, SECERR ;GO CHECK FOR SECONDARY 
BR 1805 “GO TO 1808 IF NO ERROR 
NOP ; RETURN HERE IF 
ERROR :E # DEFINED BY SECERR SUBROUTINE 
JSR PC, a(SP)+ GO BACK FOR MORE ERROR CHECKS 
fine IMP 190s :GO TO 190$ IF ERROR WAS FOUND 
1908: 
IMP SEOSP ;SKIP OVER HEAD ALIGNMENT SEEK 
;PUT NEWTEST 


HERE 
Nn eer yg cere onaierneina ann aeae 


tf t 
j deseubheoeseosssesussescsdscecceseususnnssnannnsonasqscooacsans 


;SCOPE CALL 
START OF TEST 
STIMES ;LOAD ITERATION COUNT 


1S: 


sees 
z 
g 
9 


SBASE. RO ;RO-UNIBUS ADDRESS 
j(RL) = DEVICE BEING TESTED 
SET TEST NUMBER IN APT MAIL BOX 


SEQ 0182 





DZRNCA - RMO3 FUNCTIONAL TEST 
DZRNCA.P11  29-JUL-77 13: 


» PART 1 = MACY11 30(1 
172 


) aml a dA 14:32 PAGE 180 
ALIGNMENT SEEK 


g7BNS JENS JENS ZENS JENS ZENS ZENS ZENS ZENS ZENS JBN ZN: ZING JBN ZB JENS ENS EN: 
2 /#N: AAS JING AINS AANS AAS AANI AANS ANS ANI ZAIN ZENS ZING ZENS ANS ZENS ZENS ZB: 
J9N3 78NG JENS JENS SENG JENS ENS ORI be te’ Bei JN: eb AT CYLING JENS ZENS JENS ZEN: 


DECIMAL USING re 
\t 
2M 
\ 


061416 


iHerb ALIGNMENT FOR a He RNOS DR 
PACK. my 
THE DRIVE PRIOR T 





15 PERFORMED 


JSR 


Sud ags tasesseess ad 


WARMUP IS ee IF 
HEAD ALT OPERATI 
NEA SNH: UF Ne’ NZ 5 NZ 5 RZ 5 R72 B72 8/2 BR 2 NB 2 NZ 2 RZ VEZ 2 


/3 
A NRA SNR NB NZ NZ NZ SNR SNR SNR 3 NBR NZ SN NZ NZS NB NBS NE 
R/: NM VRZ RZ RZ EMR RZ RZ EIR EZ EZEZ EZ  BEZERZMBEZ Z ME 


PARE DEVICE FOR TEST 


B54130 5 ; TASK pescr PTOR 
"te F NO ERROR 
ERROR ‘ DEF pep BY TSTPRP SUBROUTINE 
140 TO 140$ IF ERROR WAS FOUND 
#0, RMDAO ; TRACK = SECTOR =0 
8245. .RMDCO >CYLINDER = 


SPT Ren” ERS POINTS ‘renee TeBLE 


;WRITE REGISTER INDEX T 


INATOR 
REGISTERS VIA PUT SUB 


T 
100s G0 To 1d fF nO 


F ERROR 
SERROR DEFINED BY GET SUB 
140$ ;GO TO 1408 IF WAS FOUND 
PC, PRIERR ;GO CHECK FOR PRIMARY ERRORS 
116s igke To F NO ERROR 
oo # DEFINED BY PRIERR SUBROUTINE 
PC, a(SP)+ BACK FOR CHECKS 
140s ;GO TO 140$ IF ERROR WAS FOUND 
PC ,SEKSTS ;GO VERIFY RESULTS OF pSeeK OPERATION 
RETURN igke tr’ anes 
Sy arene Poy OR 8 # DEFINED BY SEKSTS TS_ SUBROUTINE, 
560° TO 1408 IP ERROR TAS FOUND 
PC,CMPERRSTS | ;CHECK ANY ERRORS NOT MASKED 
NOTMSK “MASK FOR RMERI 


SEQ 0183 





| 
1 
| 
a 
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130S: 


140$: 


MACY11 30( )_ 29-JUL-77 14:32 PAGE 181 
172 READ BLIGHMENT SEEK 


56s 
tT all 


PC, SECERR 
1405 


PC, a(SP)+ 


oe 40305 


SEQ 0184 


fon re 


01308 I IF NO ERROR 
RETURN HERE 
“ERROR ® DEFINED BY CHPERRSTS _ SUBROUT INE 


100 OE eROR ins rou 
360 CHECK a eC 


ERROR % pa OY oe ae eRe ieee 
G0 BACK F 


OZRMCA - RMO3 FUNCTIONAL TEST, PART 1 MACY11 30(1046) 29-JUL-77 14:32 PAGE 182 SEQ 0185 


DZRMCA.P11 29-JUL-77 13:33 172 HEAD ALIGNMENT SEEK 
SEOSF’: NOP 
001446 MOV TSTQUE , RO 
NOY Ra TSTQUE 
me 


006752 JMP «READY 
SE car ton Bor ol BOHR 

H Lot titi. oe 
HeType ED PHS SHOR x TOT FOPEER AOE ERRORS SINCE LAST REPORT YYYYY" 
YYYYY eae eC MAL 


*#IF THERES A MONITOR GO TO 
;#IF THERE ISN’T JUMP TO READY 


7 SEOP: 
NOP 
001116 CLR STSTNM ;ZERO THE TEST NUMBER 
001206 CLR STIMES ::ZERO THE NUMBER OF ITERATIONS 
001230 INC INCREMENT THE PASS NUMBER 
100000 001230 BIC #100000,SPASS ;;DON’T ALLOW A NEG. NUMBER 
SEOPCT: DE: (PC)+ ;;LOOP? 
” BGT SDOAGN + YES 
MOV (PC)+,a(PC)+  ;;RESTORE COUNTER 
SENDCT: ,HORD 1 
042102 ai 65S TYPE ASCIZ STRING 
BR 4§ =:GET OVER THE ASCIZ 
iagss: -ASCIZ <12><15>/END PASS’ 8/ 
001230 , SPASS, -(SP) rr FOR TYPEOUT 
33 
He ASCII WITH SIGN 
042134 67S Bi I TRING. 
i878: Z 7 TOTAL ERRORS iifée / 
001126 5 SERTTL,-(SP) ;; 


ii a re TYPEOUT 
EL i ne Mie FEED 


S0OAGN tT BRANCH TF NO MONITOR 





§ 
é 
gs SAGURELE YY 2 gPGi 3 


SENDAD: PC, (RO) : ‘eho MONITOR 
::SAVE ROOM 
3;FOR 

. > x@CTL 
a(PC)+ ; ; RETURN 

SRTNAD: RE 





B15 


oma 14:32 PAGE 183 


~j,-i1,8 ;;NULL CHARACTER STRING 


SEQ 0186 


C15 
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1 133 SUBROUTINES 


SEQ 0187 


SLLLLLLLLLLLLLEES 


» FORMATTED AND PRINTED ON 
AND ERROR DATA 


» ERROR NUMBER AND PROGRAM COUNTER ARE 


Tice. 


EAE RETIN SRTRRSN P-ERNNE, FOMATION 
RST 
fe 


‘ASTTL ERROR TYPEOUT ROUTINE 
e 

* RE 

i 

a 


-SBTTL SUBROUTINES 
i 

;#ONE OR 

s 


29-JUL-7 


‘a 
. 


fi 
PE pgh fg bedighis 3 
ae ie. 
E i tiles Hale ats a : 
Eoig eitatlg eMESEaper Ear ESE! 

: See te OM fl 
ye ite Tea, 
ee oe oe 
rm) = 
sambetts Feesets Fosstats Eaets Festngt® 
FAAP ce | 
&, 4 a on 
bab 7 
pce; Be BE & 2s 
Bigg Es Eases Evousces Eves 2° pote 


beded 0) Resins Ee: Eee 


See 


6524 


pS PSTL STS YI Shot peak a SN Ht TH 
= Se ee Ree Ree Keen Kame Kon ome oe Kare, Keane Inaen foam oun Koos ham ham hams ham, ham Demnhemh betn bamh pam ben bean ee bens 
PAPE PKCM SCPKOK SKK PSPSPS TCrrro 


SEQ 0188 


D15 
JUL-77 “14:32 PAGE 185 
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Pl 


OZRMCA 


we TO ERROR MESSAGE 
;BRANCH IF NO ERROR MESSAGE 


;FOUR ENTRIES IN ERROR 


; TABLE 
3R 

T 
;NOt? 


iO POINTS 10 FIRST OF 


oe Set hatnee 


ig: 


11 


BB 


&& 


3007 


& 


Sn? Kool 


;ADJUST CHARACTER COUNT 


CHARACTER COUNT 


seal ara 


Saddeee ponte Satie 


aE 
mm SpA 


NO?! 


& 


GRANCH IF SPACE DETECTED. 
TYPE_CRLF 


GET 


177777 043006 


SSAGE STRING 
GOES HERE 
ATED?? 


yin 


Rg 


GeEiees & EA EESTEE SEI oeD OE NeEREENeeeenien reaeans 


| SRSMIAMBRRSSS YET PPS PTRANATRRA RDS SYSS SRS BSEKLCT LER EL SSUES 


I Rh Gd ed em td de dd a hd dd ed eh tt tt 
PEPPER PPP POPPM PPO PS PMM PPMP PKCM PPPS PMO MOSK PPK POMOC KSKS 


; TYPE ERROR HEADER AND ERROR DATA 


E15 


SEQ 0189 


d 8 
gure » 3 ¥ 
“ae g = y : 
=z e- arc wo eh 

ELasiis® aE Sse GOB, 

ogsco 2 al oon é or 2 
8 me SerhD oz oe & wzals B26 
a on 
2 epee i : g-fP_ $e Bott ee 
: 

. 6 
iz eed RS Ee gs a 2g 
te Esbdte: Ayebotect of of intale » Ese s 2 
3 2 ww SEN 
se sateeea Stvosshuaetastestoatatabe ites We 8 8 8 
ee 6h 6GlUCUCOK OB i fe EEE 
; oo Hf 
Ba y 8 
ii . 8 § 3 ; 5 8 
3 3 2 8 






i CEE a 
eees Baeeeens 


z 
_ Bees 55484 656464424 


ff ——————— 


- — FUNCTIONAL TEST 
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vom! 





inmneneenpeqeneeuegnensnenennnnnenanenmennoneeorane 13 


2 


PILLPAAALS PIF 


= bm bs Fs 


22 


WwW 
bos bene 
RB 


seas EE0R & 


BPSTMOR 


d GRE 


R 
i 


043760 


043760 


043760 


F1S 
WACYIL 301046) 29-377 14:32 PAGE 187 SEQ 0190 


-SBTTL TEST PREPARATION MODULE 


i: | BEIHBE ie8 2 Delve MAH Moule Btttes = 


; CALL: 
H . WORD TASK/VERIFY DESCRIPTOR 
: 29 RETURN HERE IF NO ERROR 
: NOP TURN F ERROR 
; ERROR BE ROR BY MODULE 
; TASK/VERIFY DESCRIPTOR 
: Bit iS =1 SELECT DEVICE AND VERIFY DEVICE IS AVAILABLE 
: IT 1421 AND SELECT DEVICE 
: BIT 13 (RESERVED FOR DRIVE CLEAR) 
: BIT le =1 IF VOLUME NOT VALID 
: BIT it = 1 RECALIBRATE IF POSITIONING IN PROGRESS 
: BIT 9 
BIT 
: BIT6 =1 VERIFY CONTROLLER CLEAR OPERATION 
: BIT : a (RESERVED ED FOR DRIVE CLEAR) 
: BI : = VERIFY RECAL TBR AOR ™ 
: BIT | 
: BIT 0 
TSTPRP: 
STORE TASK DESCRIPTOR AND CLEAR , 
MOV a(SP), SOO$S ; STORE IPTOR 
ADD #6, (SP) : SP TO USERS ERROR CALL 
CLRB 6_«aa SP) : 
SUB 84. (SP) *MOVE SP TO NO ERROR RETURN 
JHEHBBBHHBBHHHHBEHBHBHHE HESKHLAKERELLHELE SLE 
>SELECT DEVICE AND VERIFY MOEVICE AVAILABLE IF BIT 15 SET IN TASK 
BIT s81715, , 500$ ‘oT DEVICE?? 
JSR PC, DEVSEL GO SELECT DEVICE 
BR 308 NO ERROR - CONTINUE 
10$ . WORD “ERROR NUMBER FROM DEVSEL 
20S: ADD #4, (SP) * TRANSFER ERROR TO USER 
move 10$.a(SP) 
IMP 400$ 
30S 


; Oa" es 
;CLEAR CONTROLLER IF BIT 14 IS SET IN TASK 

BIT #81T14,S00$ T CLEAR CONTROLLER? ? 

BEQ 120$ ;NO!! 








=e pas fae be 
i £MO 


sees 


P2222 


SRSSHRMAARO TNA RES E 


gaggsonsonsanessancasnangneegensasansns 


22 
ae 
or 


043760 


pecyi 20101), mnt 13 PAGE 188 SEQ 0191 


JSR PC, CNTCLR GO CLEAR CONTROLLER 
BR bos ‘CONTINUE - NO ERROR 
40S: : NUMBER FROM CNTCLR 
SOS: ADD #4, (SP) : ERROR TO USER 
a(SP) 
60S: om 
a2 =28HHHHNMBHHHHHHNHBBHHBMEBHHHHHBBBHEEE ERARSSARRRE ERK EHS 
VERIFY CONTROLLER CLEAR IF BITG SET IN TASK 
Bees ger 
ISR ,GETSTS *SETUP_INDEX TABLE 
ISR PC’ GET GO GET STATUS 
BR 208 NO ERROR ING STATUS 
70$:  .WORD ERROR FROM GETTING STATUS 
80S: ADD 84, (SP) : TRANSFER ERROR TO USER 
HOVE 708, a(SP) 
90s: JSR PC. CLRSTS GO VERIFY STATUS CLEAR 
BR ets NO ERROR IN CLEAR 
Ey, ER RE 
+ Bo ah tS) tSIRROUTINE AND TRANSFER 
move 100$, a(SP) ERROR TO USER 
120 a a 


5 HHISHHHHHHHHHHHHHHHHHHHHBHHHHHHIE HEHEHE HEHEHE 
EXECUTE PACK ACKNOWLEDGE IF BIT12 SET IN TASK AND VOLUME IS 


:NOT VALID 
BIT #81712, SOOS PACK ACKNOWLEDGE? ? 
BEQ 240 NO! ! 
ve SaeseeTae, Ts 
ISR PC, GET 
BR 150s NO ERROR GETTING RMOS 
130$: . WORD 
140$: ADD #4, (SP) TRANSFER ERROR TO USER 
1S0$ arr in0 sie IS VOLUME VALID?? 
; ate 240$ :YES!! ihe 
CEB COLRNCSIO ST ORD PREK ACK COMMAND 
MOVB eRNCSI PUT INK ;SETUP REGISTER INDEX TABLE 
JSR peur GO WRITE COMMAND 
BR 180s ?NO ERROR LOADING REGISTER 
160$:  .WORD ERROR FROM PUT SUB 
170$: 800 m4 (SP) TRANSFER ERROR TO USER 





usese 


sig stsaasaaseasansansansasccataneeseesnnmnnmmanmanennans 


2 
E 


000004 
O434S2 


oooc04 
043500 


- 


ae 6 8 


Ww 
— 
o 


043760 


: 


043760 


MACY11 30( 1046) 
TEST PREPARA 


TION MODULE 
BR 400$ 
180$: 
5 5 RRRRREEEEEE RERKHERERAE 
: VERIFY 
BEd 
SR ,GETSTS 
JSR PC’ GET 
BR 2ibs 
BR 200$ 
190$:  .WORD 
200$: ADD #4, (SP) 
MOVE  190$, a(SP) 
210s: 96a  PRLACKSTS 
BR 24ds 
BR 230$ 
2e0S: m 
230S: ist (SP)+ 
#4, (SP) 
MOVB 2208, a(SP) 
BR 4O0$ 
240$: 


H15 
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SEQ 0192 


SERRE REEL EE REE E EEE EE 


SHEE SHHIHHHHHHHHHHHHHE 
pox F sBIT4 SET IN TASK 
BI Ree rts, S008 VERIFY FY PACK ACKNOWLEDGE ?? 


iSite FOR STATUS 

*NO ERROR GETTING STATUS 
ERROR FROM GET SUB 

* TRANSFER ERROR TO USER 
GO CHECK ACKNOWLEDGE 
NO ERROR 


PACK ACKNOWLEDGE ERROR 
pod one 


s REGGE GEER EEE REG EERE ERR SEER ALE ERR L LE AAL LER AES 


;RECAL TBRATE ater ro pie SET 


JSR 
JSR 


PC,GETSTS 
MOUT 


AEC aL TERA we PIP IS ACTIVE 


‘TOAD REGISTER INDEX TABLE 


;GO GET RMDS 
NO ERROR GETTING RMDS 


;ERROR FROM GET SUB 
; TRANSFER ERROR TO USER 


31S PIP ACTIVE?? 
:NO!! 


RNCS10;LOAD RECALIBRATE COMMAND 
Ub a AND REGISTER INDEX 


;G0 ISSUE RECALIBRATE 
NO ERROR 


;ERROR_IN REGISTER TRANSFER 
0 USER 


; TRANSFER ERROR T 


;SETUP FOR STATUS 
;WAIT FOR COMPLETION 


JHHHHHHHHHHHIHHHHHHHHHHHHHH HHH HHH Eat 
Y RECALIBRATE IF BIT 3 SET IN TASK 
881T3, S00S ; VERIFY RECALIBRATE?? 





115 


SEQ 0193 
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Pug st ge 
2 = : we gee 3 z 
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r eeeen Geey fg 
a San tGoatastnosasse & 
ee i ee: 


» PART 1 
043702 000000 
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eee | 
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Ef SeRODacaaeeeareaa 
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Pll 


qaseasregersqesssessssesseres 9] 


a 
i 


RMO3 
1 
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29-JUL-77 13:33" 


we 30(10%6) 29-JUL-77 14:32 PAGE 191 SEQ 0194 


T STATUS SUBROUTINE 
-SBTTL GET STATUS SUBROUTINE 


RU BPN WN AUT BSc Da NESTOR TP RE ey Blenourne 


SAND THEN RETURNS TO THE USE 


FOAL: JSR PC, GETSTS 
279 RETURN HERE 
svete 
HOV RO,-(SP) ;;PUSH RO ON STACK 
NOY Re? =¢8p) t BUEH Ro On STACK 
ite, ME rues 
= 
MOV SerecS ‘ ‘Re = REGI INDE 
2s: MOVB Re, (ROS+ ‘WRITE REGI INDEX IN 
CLR -(R1) : NG LOCATION 
3S: SUB #2, Re : I 
BMI 4§ “BRANCH OUT IF DONE 
CMP #RMDB , R2 =DONT WRITE RMDB INDEX 
BNE 2s 
CLR =(R1) 
BR 3$ 
4S: MOVB #200, (RO)+ ;WRITE TERMINATOR 
MOV (SP)+,Re *:POP STACK INTO 
MOV (SP)+/RI POP STACK INTO RI 
HOV (SP)+’RO ::POP STACK INTO RO 
RTS PC 


OZRNCA - RNO3 FUNCTIONAL arate PART 1 


DZRMCA.P11 


$459 


29-JUL-77 





K15 


MACY11 30(1046) 29-JUL-77 14:32 PAGE 192 
GET SUBROUTINE se sadn 


-SBTTL GET SUBROUTINE 
S SUBROUTINE READS THE REGISTERS 


eee eee 
ane 


aniCH TERMINA we 


TERS WHICH ARE LISTED IN THE 
ski SPONDING 


FOLLOW 


ae TeRntnates ut haat J ORDED ITH REGISTER INDEX 


AVAILABLE ae USE. (NOTE THAT 


R CORRESPONDING 
LSI nla, ewe? & 
ae Pc eT NO ERROR FOUND 
NOP RETURN HERE ER ANY NRROR FOUND 
ERROR SUB DEFINES ERROR 
NOP 
ADD #4, (SP) CLEAR ERROR NUMBER IN USER’S 
CLRB =-«aa SP) ERROR CALL 
SUB #4, (SP) 
MOV RO, -(SP) Pu RO ON ST BCK 
MOV R1,-(SP) R 
MOV *-(5P) Tak 
MOV *=(SP) 
MOV RY ser RY ON 
MOV -(SP) ERE es STACK 
MOV C42, -(SP) PUSH ERRVEC+2 ON STACK 
MOV RO 
MOV ,R2 
MOV TINX’ RY 
MOV c ;SETUP FOR TIMEOUT 
MOV ERRVEC+2 
mY resiigy aired 1S -tuge Stas 
BIT aova, sire iBevice AVAILABLE? 
ety #4, 16(SP) WRITE ERRO ERROR NUMBER IN USER’S 
HOVE gil2,ale(sP) =; 
TSTB ss CR) ;DONE?? 
nova CRY) RL yes! 
BIC 8tCIDXMSK, R1 aise SORE REION 
ADD RO, RI 
MOVE = (R4) +, R3 ais ADDRESS FOR REGISTER 


STORAGE 
; CLEAR ANY SIGN EXTENSION 
;READ REGISTER 


-aBe 
SBE 
ao 

gi 

3 
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cre Soe | 


xz 
ar 
w 





L15 


22-JUL-77 14:32 PAGE 193 SEQ 01% 
3s 

(SP)+, (SP)+ ; RESTORE STACK “p= 

87, Peep) SCE S ERROR CALL 

#2: 16(SP) 

(Ra) sDONE, CLEARING? ? 

R3 CLEAR REMAINING STORAGE 

(R4)+,R3 LOCATIONS 

R2,R3 

(R3) 

8S 

(SP)+ C+2 -:POP STACK INTO ERRVEC+2 
(86}3’ ERRVEC ;;POP STACK INTO RRVEC 

(SP)+,R4 ;;POP STACK INTO RY 

(SP)+,R3 ::POP STACK INTO R3 

Shar ti pop STACK INTO Ai 

(3p) 3° RO POP STACK INTO Ro 

PC ‘ RETURN 


FUNCTIONAL sree PART 1 


ies 





ats 
a 


val VT 


SSSSSSSSSSSSeSs 


ow 
on) 
4 





eaag SEENSESSRaREET 


-SBTTL PUT SUBROUTINE 


id 
i 


REGI 


tg ott THE 


none} a rf alae 


{ SUBROUTINE CALL: 


or ReareTERS 1 BE URIFTEN. LOADED WITH INDEX VALUES 


edd a acsienenes CONTENTS OF EACH 
EGISTER, 70 Py, Put WRITTEN 


SESEE 


25n-3 


ie 


_~ 
Oe we we 


e 


PaBUE TAS 
wR 3 
ann 
- 


sn 
Sonal 
_ per 
~ — ~~ 
Fa Ll 


Fl 


aes eet 


ca 


Ber 
2 


82 
ay 


ina, = 


MACY!i 30(1046) 29-JUL-77 14:32 PAGE 194 
PUT SUBROUTINE 


fe CORTENTS OF Bi LISTED ih. 


INDEX TABLE MUST 
BYTE (200) WHICH SHOULD 


;SETUP FOR TIMEOUT 


eh Patan 


AVATLABLE?? 


‘fear aa SIGN 
;WRITE REGISTER 
;ADJUST STAC 


Rite ERROR NUMBER IN 
;USER’S ERROR CALL 





TACK 
ERRVEC ON STACK 
;;PUSH ERRVEC+2 ON STACK 


RY STON xT REION 
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DZRNCA.P11  29-JUL~-77 13:33 PUT SUBROUTINE 


ee BAWE18 o1ee37 o00006 3S: MOV s(SP)+, ERRVE jPOP_ STACK INTO ERRVECH2 
aie ee re 
es aes ee BEB A NB 


fa 
9603 
a 
= 
ef 


PRRRRARE 


ONO £ WT 


RORRERS 


- RMO3 
Pil 29-JUL-77 


GaiseeciascenteanEeD 


FUNCTIONAL TEST, 
13:33 





cme mee 


-SBTTL SIZE CLOCK SUBROUTINE 


SIZCLK: 


18: 


233833 


333934 


4 
wo 
“4 


aes B42 


PART 1 crt, we) gL 16 PAGE 196 SEQ 0199 


;;PUSH ERRVEC ON STACK 
s ERRVECS2 ON STACK 

SET up FOR BUS TIME 

;LOAD ADDRESSES FOR KW11-L 


eS FOR Os FRESE 
*SET UP FOR BUS TIMEOUT 
*LOAD ADDRESSES FOR KW11-P CLOCK 


; TEST FOR KW11-P PRESENT 
sYES - KWi1-P IS PRESENT 
;RESTORE 

;MOVE RETURN TO ERROR 


--POP STACK INTO ERRVEC+2 
;:POP STACK INTO ERRVEC 
‘RETURN TO USER 


C16 


Po ERS TEE POT PE UU gh? He ae 


ff ATA 
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ae oe 
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ey Ses ; E 
¢ i Her iao 
cE ore = 
i; pe ek 
Eo 
F gs St BBBEEEEEEEREES 
hea E 4g 


=e 
Geseecs! Ee 
bengenenengs: 


Od oS ad ad dl gh 
NOOO 000000 oo 


- 

oe “2 

-_ 2 s= os 

_ Oo 

5 ‘3 Bs oe 

ao 

‘$s 5 ae 
ce | seh 
ESB asayemis Sy 
Soggy esses 
cucucyu 


-_ 
= 


S Sica 
CHUTE: 


STACK INTO ERRVEC+2 


: :POP 


S385 


SS: 


ce 
me 


= hen bam ben 
oo000 


;,POP STACK INTO RO 
TURN TO USER 


SE 


z 


EEELEEDSEOOD GED 


= RMO3 FUNCTIONAL Tes, PART 1 TL SOU) Ae oa mo PAGE 198 Sed 0201 
%72 - SBTTL PRIMARY ERROR CHECK SUBROUTINE 
$n maa HOF JETP NSE." 2 
; FOLLOW NG ARE : 
£ 
re cars BERANE BaP cif; ME UO? EET ors oF wee 
ia NED Feat hae a oe Ce iar 1.E., OVA (BIT 11 OF RMCS1) IS SET 


9684 WAS COMPLETED THE MASSBUS CONTROLLER IS 

3085 ie hid fob re Oh OI) 18°RESET IT © OF ESI) OF THE 
BM Aedoy T (B S 

9687 i. . ERROR OCCURRED WHEN READING REMOTE REGISTERS, 

533 Bed ht ERROR OCCURRED WHEN WRITING REMOTE REGISTERS, 

9 , OR, PAR = DPE = 1 

%31 

9692 ; 

9693 THE SUBROUTINE ASSUMES THAT: 

a is particu a NO AE ween A TORED IN TH IN THEIR 

227 ING tan, ARC ee - "3 BE EEN 

399 : . (SUNIT) CONTAINS THE DRIVE NUMBER 

3701 ‘THE SUBROUTINE IS CALLED AS FOLLONS: 

$703 *(1) ISR PC, PRIERR 

ue eg TE IESE 15 PEE, exon 

9706 : ERROR ERROR NUMGER DEFINED BY SUB 

9707 : ISR PC, a(SP)+ GO BACK TO SUB FOR MORE ERROR CHECKS 

3708 : 229 RETURN HERE IF NO MORE ERRORS 

3710 o4so42 PRIERR: 

i CLEAR USER’S ERROR CALL 

9713 O¥SO42 062716 OO0004 ADD #4, (SP) ;MOVE (SP) TO ERROR CALL 

9714 045046 105076 000000 CLRB HES “CLEAR ERROR NUMBER 

ais O450S2 162716 OO0004 SUB #4, (SP) ?MOVE (SP) TO NO ERROR RETURN 

9717 

9718 REPORT AN ERROR IF THE WRONG UNIT IS CTED 

$719 O4S0S6 013737 001336 001142 MOV RMCS21,SBDDAT ;CORRECT UNIT SELECTED?? 

9720 045064 042737 177770 O0114e BIC 8tCUNTASK, SBDDAT 

972: ps07e 013737 001234 01140 HOV SUNTT, SGDDAT 7 ;GO0D DATA FOR TYPEOUT 

a3 Bue ioe to5939 hot 140 001142 CMPB Si50aT Se0oaT conan hunSeRS AND RECEIVED 

97; 114 41 BEQ 1$ “YES! ! 

$76 Piette esata oo0004 ADD #4, (SP) 

9727 O4Sl22 i12776 OO00001 oo0000 MOVB #1, a(SP) ERROR 1 
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SECONDARY ERROR CHE 


- SBTTL SECONDARY ERROR CHECK SUBROUTINE 
THE ERROR CHECK SUBROUTINE PROVIDES DETECTION OF SECONDARY ERRORS 


mG THEY sr RST ae a ees esos WITH THE OPERATION 
BSD oie eth HE eae Mees HERE 
i Cee eas eh Sebtne al he one 


gnen TO STO THe wer at FOLLOWING othe PSUBROUTINE STING CALL 


CALL: JSR PC, SECERR 

: BR 294 RETURN HERE IF NO ERROR 

: NOP RETURN HERE TO REPORT AN ERROR 

: ERROR ERROR NUMBER DEFINED BY 

: JSR PC, a(SP)+ GO BACK TO SUB FOR MORE CHECKS 
: 229 RETURN HERE IF NO MORE 


;NOTE: THE SUBROUTINE ASSUMES THAT REGISTERS HAVE BEEN STORED AT THE 
; INPUT RESISTER BUFFER. 


SECERR: 


; THEHHEHHIHHEHHEHHEHHEHEEHHEHE HEHEHE HEHEHE EEE 
{STORE FUNCTION CODE AND CLEAR USER? 


RMCS10,515$ STORE FUNCTION CODE 
BIC atccr ot Filretrath Siss 

ADD (SP) (SP) ) 10, ERRO ERROR CALL 

CLRB HS *CLEAR ERROR NUMBE 

SUB #4 (SP) *MOVE (SP) SONNO-ERROR RETURN 
F © REG SKG HH HG HERRERA ARERR ARERR AAS R ARE KS 
t ANECK SECONDARY ERRORS COMMON TO ALL COMMANDS 
; REPORT IF S NOT IF DRY = 0 

Bg Bd" "lad fetal 

EO Bros! SBDDAT BAD ‘bata FOR TYPEOUT 

BIC #¢CDRY, SBDDAT 

MOV #ORY , SCDDAT GOOD DATA FOR TYPEOUT 

ADD #4, (SP) 

MOVE 810, a(SP) ;ERROR NUMBER 

SUB #2, (SP) ‘MOVE SP TO RETURN FOR ERROR 

JSR PC’ a(SP)+ REPORT NOT READY 

SUB #10, (SP) ;RESTORE (SP) TO ERROR N 
-REPORT ERROR IF GO BIT IS NOT RESET 
gs: BIT #G0,RMCS1I :GO BIT RESET?? 

BEQ 10$ *YES!! 

MOV RMCS1I,SBDDAT BAD DATA FOR TYPEOUT 

BIC #*CG0, $BDDAT 

CLR scppAt ;GO0D DATA FOR TYPEOUT 

ADD #4, (SP) 


SEQ 0204 





H16 


29-JUL-77 14:32 PAGE 202 


SEQ 0205 


, PART 1 MACY11 30(1046) 
29-JUL-77 13:33 SECONDARY ERROR CHECK SUBROUTINE 


DZRMCA - RMOS FUNCTIONAL TEST 


DZRMNCA.P11 


=e es 4 
se se oss. 5 pc 2 Sebo & 
eo. 8 e ¢ rr bot HE HS of 
fei de be He ei pe 
oy oS 259 “BER EQ & oSo¥ os bs =e SEX oe 
ek _ B g~ ban Ye oN 3 egee y : |: oi « 3 : "& 
S05 es 3 = Su “ of Ee ate : S sae ue ne 
ee ge LEER) gh Eedest bist of Envbeorits 20h 
fa = fate Ae foe 
- Os: 2 Bo. fale. 
=e = ois Be 1 a ee 
Sued Spetga sso : Se : Se inbszettza9.2 
= — Sti 
Zones EecpeceSanms sve cnynguecece tana re SeSghEceckees 
- ae “_ . 
28 REIS ae Enos rite) 
299 eyey 8 easy 8 
oda aaa ee: 
sete aa 8 Bee 


es 


ce 6 


See Sess 


we 


SLAROMaSS 


tt mt ot tt Ot 


Seooea5 


 RURRROEEERERORPEREE 


aMa Gee 8 


aa 


SPRASYRKSUZ 
epee, canbe 


UL 
as 
uannaae 





DZRNCA - RNOS FUNCTIONAL TEST, 


DZRNCA.P11 











E 





REnIN NU SORSeSEUSSEREE SS od saa cee UrReD Re Coun eeES OF 


bb 





162716 


a 


88888 88 


<= 
ee 
ow 


a 
Sees 


29-JUL-77 13:33° 
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R 
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SP) ;MOVE SP TO RETURN FOR ERROR 
EC PORE MEF 


isin THETATUS BITS ROT SCT TAT SHOULD Be HECK FOR IME, FOUL 6., NG, ERRORS ILF 
inore THAT SOE Exon BI 15 ARE CONDTT Lone Of PE Tre cSt ant one 


: STATUS CONDITIONS, E.G a Py ONLY BE SET IF 
WRITE LOCK IS ON Sie Coen fs A URITE 


my Baste) ligation ot 
MOV _- FNCOTB(RO),SOOS :STORE 
MOV (SP)+, RO ::POP STACK INTO RO 
REPORT AN ERROR IF AN UNEXPECTED ATTENTION OCCURRED OR IF 
ATA IS NOT SET AND BE SET. 
MOV SO0S, T ;GET EXPECTED ATA STATUS, , 
BIT ii °1S COMPOSITE ERROR SET 
Bre A, SGDDAT IDeetr aa AN ATTENTION 
SOS: BIC a¢cata ScD0AT 4 
BIC st SECA fae Shas 
CHP SoD T; SBDDAT s1S ATR Ok 
ADD 84, (SP iMOVE SP T TO USERS ERROR CALL 
MOVB #6, a(SP) LOAD ERROR # IN CALL 
SUB 82,(SP) : MOVE SP TO ERROR RETURN 
SUB #10, (SP) *RESTORE SP 
css: 


RROR IF ILF_IS INCORRECT, I.E., IF ILF DOES NOT COMPARE 


T ;GET CTED ILF 
‘OTE AR ALL OTHER BITS 


SGDDAT 

MOV II;$BDDAT  ;GET RECEIVED ILF 
BIC StCILF;SBDDAT ;CLEAR ALL OTHER BITS 
CMP SGDDAT;SBDDAT 31S ILF OK ? 
BEQ 60S ws! 
ADD #4. (SP) ‘ep 1 CALL 
MOVB 8254. a(SP) ERROR N CALL 
SUB #2, (SP) sunt SP TO ERROR RET 
JSR PC’ a(SP)+ ; REPORT ERROR AND RETURN 
SUB #10, (SP) *MOVE SP TO NO ERROR 

60$: CLR SGDDAT ‘CLEAR EXPECTED STATUS 


;REPORT i ee IF we 5 sr AND SHOULD NOT BE SET 


;GET WCE STATUS ENABLE 
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‘ WRIT! 
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OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR 
TRE IS CHECKED AS A FUNCTION OF OTHER ERROR CONDITONS ABOVE 


SOYLINDER REGISTER IS WRITTEN 
AOE CANNOT BE SET IF LBT IS NOT ALSO SET 


re Gren, re 
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2 
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R ERRORS EA 
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PE sbeb dehhhdetot tebbetbdehlebdabtatebddettekehdehlattelatelabbdatatdtfdgh-beblebdobedelehdbeletadel 
;PERFORM THE REMAINING ERROR CHECKS ONLY FOR DATA TRANSFER COMMANDS 


;REPORT ERROR IF DCK IS SET AND 
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: 

esss 
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#SEARCH, S1S$ ;WAS DATA TRANSFERRED?? 
280$ ;YES!! 


SEQ 0213 
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SEQ 0214 


3 

a 
3s 
3 . 5 
ped Rie 
srk & 5 q “: ¢ ie, g ef bsg tes ; : - 
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;RESTORE (SP) 


COMPARE 


T 


;SETUP EXPECTED CYLINDER 
;SETUP RECEIVED CYLINDER 


;MOVE SP TO RETURN FOR ERROR 
;REPORT BAD CYLINDER 


ifove sp rT RETURN FOR <ERROR 
5REPORT ee STORE (SP) 
COMPARE CYLINDERS 

SBRANCH IF EQUAL 


;SETUP RECET 
;BRANCH I 
;ERROR NUMBER 
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SBDDAT 
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062716 000004 355$: ADD #4, (SP) ;MOVE (SP) TO ERROR CALL 

iiss 000000 TSTB a5) :WAS ERROR FOUND?? 

000004 Bo 84, (SP) sMOVE (SP) TO ERROR RETURN 
oo0402 BR 365$ 
162716 ooo004 360$: SUB #4, (SP) ;MOVE (SP) TO NO ERROR RETURN 
3655: PC 

000000 S00$: .WORD O CYLINDER 

DO0000 :  . WORD 0 : 

208s: “WORD : SECTOR 

000000 515$: .WORD O :FUNCTION CODE 
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UNIT CT BITS 
DvA” STATUS 
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;MOVE SP TO RETURN IF ERROR 


;;POP STACK INTO Rl 
;;POP STACK INTO RO 


RETURN IF NO ERROR 
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+ REPORT IF SKI IS SET 
052410 032737 o40000 ooll4e ’ hai #5k1, SBOOAT 31S SKI Fis 
. iMag Toba to Fane 
Se a: ae 7 a 
Resse Apaok odode 1 RSE, OPER sock TERROR | OF ERROR 
peewa 162716 000010 sug #10, (SP) RESTORE (SP) 
REPORT ANY DEVICE CHECK 
932737 001370 54s: BIT #0 , RMER2I HAS THERE DVC DURING SEEK?? 
CLR T aTUS 
t cy «RAP RET. SBDDAT PECTED STATUS 
ib ADD #4, (SP) 
MOVB ass (SP) ; #55 
1 SUB , (SP) *MOVE SP TO RETURN FOR ERROR 
736 JSR PC’ a(SP)+ REPORT ERROR VIA USER 
162716 000010 SUB #10, (SP) “RESTORE SP 
o 
REPORT ANY “OPI" ERROR AS OPI WITH MOL =0, OR OPI 
‘BECAUSE ON CYLINDER LATCH DIDN’T 
ae oo134e 6S: BIT 80P1, RMERLI ;"OPT™ ERROR?? 
ase Fooar SEXPECTED STATUS 
10694 013737 MOV RMERII,SBODAT  ;RECEIVED STATUS 
ie Aoye sda! 7” H " 
it BIT MOL, RMDSI on ON LINE??. 
1 bel 000053 MOVB #33 a(SP) ?YES = CHANGE ERROR NUMBE 
bere @ ei, ere om 
i 5 162716 sug 810,57) RESTORE ( 
i IF “PIP” IS 0 “ATA”, “MOL"AND"VV" =1 
1 1 340 MOV RMOSI.-(SP) a 
1 10 76 BIC StC<ATAIPIP! MOL! VV>, (SP) 
1 a 110100 CHP BATAIMOL!W, (SP)+ : 
i eae, 053156 IMP i4s :RMDS a an = 
1071 “REPORT ERROR IF MOL = 0 AND OPI = 
tft ~: 010000 001340 4s: BIT MOL, RMOSI 18 ek Ono rts ser 
10715 001342 BIT 80PI, RMERII 
1 8 BNE 10S ives © OF TOnT REPORT ERROR 
1071 00 1140 MOV RMDSI.SGDOAT § ;EXPECTED STATUS 
iil eee Gigs Soil? = Bis anak Seo 
a 2 Ol 7 1 114 HOV Rn st , SBOOAT ;RECEIVED STATUS 
10721 TESTE Spboee oo0000 MOVB 862, a(SP) 





SEQ 0222 
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10788 gse7ce 62716 o00002 SUB #2, (SP) ;MOVE SP TO RETURN FOR ERROR 
rt 7a “ JSR PC,a(SP)+ *REPORT ERROR VIA USER 
ee Bes7ia ABsoug OOOOH ROP 
-REPORT AN ERROR IF “PIP™ IS STIL SET AND SKI NOT SET 
. fie o20000 001340 Ios: BD ep]? , RADSI Bee “pIP™ STILL SET?? ae 
001370 BI #SK1, RMERZI WAS “SKI°SET?? Se PIP 
14953 001140 MOV iYES-DONT REP 
HSV BES ccerep sr 
; aosh§ nove (ep) a 
pre Sve 85, g( 5) th eet 
SUB , (SP) : FOR ERROR 
JSR PC’ 3(SP)+ : REPORT “Pir PIP oe oe Be TER SEEK 
1 : sug #10, (SP) 
“REPORT AN ERROR IF “ATA” IS NOT SET 
032737 001340 iis: BIT SATA, RMDSI ;WAS “ATA” SET ?? 
001140 MOV 1, SGDDAT Bette STATUS 
001140 BIS RATAT HOLY DPR! DRY’ $CDD8 
001142 MOV RMDSI , SBDDAT RECEIVED STATUS 
ADD #4, (SP) ) TO ERROR 
oo0000 MOVE #57, a(SP) iLOAD NUMBER 
SUB #2, (SP) : O RETURN OR ERROR 
JSR PC, a(SP)+ {REPORT ATTEN ION NDS SET DURING 
162716 000010 SUB #10, (SP) — ;RESTORE (SP) 
“REPORT ERROR IF VOLUME VALID IS RESET AND IVC IS ZERO , 
S30 000100 001340 13$: &IT evV, RMOSI i1S, W =0 2? 
. 010000 001370 Bi SIVC, RMERCI 1S IVC ALSO O 7? 
631 14S *NO - IVC IS SET 
0531 001340 001140 MOV RMDSI,SGDDAT § ;EXPECTED STATUS 
goa 4 001140 BIS 8VV. SCDDAT 
at “4 1142 HOV RDS, SBDOAT sRECEIVED STATUS 
peal 4 pone 4 000000 MOVB ag! acSP) ERROR #64 | 
x ue 1 SUB , (SP) “MOVE SP TO RETURN FOR ERROR 
0531 004736 JSR PC, a(SP)+ 
ag 162716 000010 SUB #10, (SP) 
S31 NOP 
0531 14S: 
ees MODIFY THE RETURN ADDRESS IF AN ERROR WAS DETECTED 
pesiee edt 000004 ADD #4, (SP) ;MOVE (SP) TO ERROR CALL 
O53164 ° 000000 STB acSP) . WAS ERROR CALLED?? 
053172 062716 000004 ADD #4, (SP) *MOVE TO ERROR RETURN 





P= b= pan bee Se Pe Pe 


ny Hi 
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B02 
BSC hua a iieg Pe 


16S 
15§: SUB #4, (SP) ;MOVE (SP) TO NO ERROR RETURN 
i6S: RTS PC ; RETURN 
300$: .WORD O ;ERROR FLAGS 





SEQ 0224 


mec op te). pasty Ine PAGE 222 SEQ 
-SBTTL CONTROLLER CLEAR SUBROUTINE 


; THIS SUBROUTINE CLEARS THE MASSBUS 
;AND DRIVES, THEN SELECTS THE DRIVE. 


SBR iP SOM TERE PT 


CONTROLLER, MASSBUS ADAPTERS, 








FCALL: JSR PC, CNTCLR 
; BR 274 RETURN a NO ERROR FOUND 
: NOP RETURN F ANY ERROR FOUND 
; ERROR SUB DEFINES ERROR NUMBER 
CNTCLR: 
910046 MOV RO, -(SP) ;;PUSH RO ON STACK | 
Lae ; RY CRAAVES csp) SPST EARYEC ON STACK 
oenee = ° 
1 HOV Hnetta -(sp) °’ are ERRY ECte ON STACK 
ie fe ENE 
j 1 MOV RO ;RO=UNIBUS ADDRESS 
10 1 000010 MOV BACS2(RO) “CLEAR MASSBUS 
if 1 1 MOV T GUE RL 
106 iB 1 HOVE RL), (RO) ;SELECT DEVICE 
1 022626 10S: CMP (SP)+ ($+ ADJUST. STACK i: 
sane e CALL 
t ry rere 50001 Sr "4 OCsP) telie THE ERROR 
isle sath 162766 000002 000010 we SUB #2; 10(SP) 
1081 ti 012637 000006 “MOV (SP)+, ERRVEC+2 +:POP STACK INTO ERRVEC+2 
10814 4 012637 000004 MOV (SP), C  ;;PoP STACK INTO c 
1081 12601 MOV ( Cae *:POP STACK INTO 
1081 12600 MOV (SP)+)RO ?:POP STACK INTO RO 
10817 000207 RTS PC 


DOe 
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DZRNCA - 
DZRACA.P11 


z 
ge " a 
aie © : 
5 bof : 3 
ee I oe piled ‘ 
wee a 2 g © Sete vee 2 3 
a a 
posi! me aiden pen is 
3.8 oe ce > = : 
Cie no: 
te Ele fee a 
ete hie: 
re ee oe 5 Be Bs 
a: = = 8 & Biase ho Eb ciacs BE Pps 
tc £ i. 
By Es matin: Gelakeczns ofonsnbszcefanabcene’s 
fee & BS Ok Fit 
ie eee 
——}— Sop = 






a eat saaat 








SEQ 0227 


'BiBha Stalls Check 'sibnolf ihe 


RRR PL Oe eas TOOK 


, SCT, TRK 


,LS,LST 
AND RECEIVED 
,RQB 


TA BIT 


RMR 

JIGIORE ORD SLOCK 
prec 

TO 

ERROR VER 


;EXPECT TEST BIT ON 


LST 
$cp0At 
T, SBODA 
) 
ey. 
SP)+ 
SP) 
IS 
a. 
sP)+ 
SP) 
er 
131777 
t SaboaT 
) 
(SP) 
) 
+ 
) 
: REPORT ERROR IF RMER2 NOT RESET-IGNORE SKI,DVC 


yo | 

4a 

42 
000000 


;MOVE SP BACK TO NO ERROR 
IGNORE WC 


2 

pet Peaccreces Ee pedi GES opts 

text: & lsh S Hie tS eh 
is oe oe ot tit 


Sa 


popegasaats 


See GeGOS aaa Augbe pote Gaahd Baw gaqnd 

RoSerses ete Sues Fifiewiars = See Mss 

a sbecbaeen 
7 ? bs 


cam 
cw is] cu 
: +o : eee : 
a aa eH et 
oben! a et 


JSR 


mene 


IF 
cc 
; REPORT a IF_RMMR2 


wg gd 


TELICT IEE 
a Eee pages aot 


001140 001142 


053510 012637 001140 








eas O=UMT NOt. Cc : 
D pam fap pi Fp fe pan pad ytte 
ate SBB3E 55554468852 


ae od ed ee oe ON oo aes 9908 6966656606606666606066666066606665969a 


SEQ 0228 


218: 


al 
3 Gas Bee 8 


Cheb Recerven 
USER 


ae 


Rios] Sanat mITIA. 


7 DRIVE STATUS REGISTER 
oa 
E 


ee 


oh. 85 
Esato 2 ® 
cad 
tf 
move fee & 
a hl G6 8 
Saeed x Sh a 


LE 


protec agquee 


Ss & 


: 
bse & Ee BE 


— ns 


ro lu teen 
slate 


wee) a) a a eg we dr ee ee eg ed od 





GOe 
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dé 
& - 
a fi als 
se LE 
oe oe 
BAG BE ew 


UNS” IS SET 
RMERII 


oe theahoe 
Be ZzNes 


g: Bice “Eubsereuss | 4E 


Babes: pels suupveclanms styausetanns 
7 § 
4 


Lo 


BUNS! 
7$ 


BIT 
BEQ 
;REPORT AN ERROR IF ™ 
BIT 
BEQ 


: cone 
1 SDAT 
500 i 
(SP) 
)¢ 
) 
"OPI" “RMR”, “ILR” 
'OPI! 
UNS 
3S 


Pa GCRETNE He bcd Ge cauereR” ERRORS one 
plu 
es Back 


-SBTTL PACK ACKNOWLEDGE STATUS CHECK 


MACY11 30( 1046) 

PACK ACKNOWLEDGE STATUS CHECK 
THIS ts 

*CALL: 
(1) J 

ACKSTS: 

;SEE IF “UNS” 


+] 
’ 
1 
es: 
‘J 


- 2 299 ¢ 2 299 : : 

3 3 dae 3 sae 3 

ce ee 8 
Pee gnats 2 «| SESS 


001424 


i 


i ay a3 a8 
a ine 


= 
SeSBessSeSacccds 
pen pam bam bam pam pam pee) 
ff pugs aoeepoceeenmpnanennceeeeerrecmssnmnaance 
dk dk dd ed 


OR ad ad ed ad ad ed ad eg ed ed hd a de a ed dg ed ed ad eh ed ad a a ed ee a) Sg we ee ed ed ed dd ed eh ed eH 





aabirir thine 


OS4372 032737 O40000 001342 


054400 


° a FUNCTIONAL TEST 
29-JUL-77 13:33 





HO0e 
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MACY11 30( 1046) 
PACK ACKNOWLEDGE STATUS CHECK 


SEQ 0230 


RECEIVED 
EXPECTED 
ite 

MOVE SP 
REPORT 

HOVE SP 
{HAS OPI SET 7? 
Be 

25 

HOVE SP 
REPORT 

HOVE SP 

WAS RMR SET?? 
NO! 
eye 
tMOVE SP 
REPORT 
tHOVE SP 

WAS ILR SET?? 


filaae Mee GErS ot 
a z 


ee Beis 
oh 
Be betes 


eee 


te oO -o o - © 
SESSERHSS ESESSESSSNNS ELGSSSSSSARS ELgRaSSoRARS 
rt 4: 4 
4 = g & a = 
22 Bae a ee A Be 
853 8 888 8 888 8 888 


= Iie: lie fF 


UU 


Se En —— ea 


RES & 








6S: 


| ee i 


seadiealinaieiaiiianiiaamaaaaaaln 


;WAS ILF SET?? 


ILF_ERROR 
SILF,RMERLI 


BIT 
BEQ 7$ 


;REPORT ANY 


032737 000001 001342 


001424 


SSSSSS9S9999999S0990989966006060560088909588088088898S8S9S98S 
I Ed a Om dd a dh dd dd ed Od ad a dG Gd ad Gd ad dd dd wd 


SEQ 0231 


I0e 
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MACY11 30( 1046) 
PACK ACKNOWLEDGE STATUS CHECK 


ee OE 
Ct 
gis Be. | 
aie sit: 
EE eigio 5 
Bis 
fice: Wet: 


BBesSuReS 


; SS IF E 
loa daa aaa 

a(SP) 

8s 

#4, (SP 

9S 

#4, (SP) 

PC 


7$: 


ani gu 
a 
a 


SESSSSSSSSRRRRE BREE RE 


BE a rd ee ad a ed ng a ed og ed eg wed dh 
ed re eed ag ed Oe ee a A) md a ed ed HH 


J02 
SUBROUTINE 


JUL-77 14:32 PAGE 229 


)_ 29- 
STATUS CHECK 


(1 


MACY11 30 
RECALIBRA 


FUNCTIONAL TEST, PART 1 


DZRNCA - RMO3 
29-JUL-77 13:33 


DZRMCA.P11 


e : 
SEEeBeEeeRhas = sageunas 


e: 
e- 


a x 

> | Ok : ‘Tee. 

Lo? ot @ : 

; Ei od a a 

eae a 
y & 2 uw i & So & boBoes 
pi er om ti ePeahp 20 ei 
a ee 
me, gai. abl 
peg 8 bs of EL sats i Bh ss 
é g: Zaz Se ; Euban testes onbsbetues 
; :- 
; be 


; THIS INE CHECKS THE RESUL 
;USING THE STATUS STORED IN THE Get 


Q) Isr 
NOP 
ERROR 
2? 
RCLSTS: 
CLEAR USER’S 
ADD 
CLRB 
SUB 
;SEE IF “PAR” OR ™ 
BIT 40r 
BEQ 


tSBAR” = 
1§: 
; REPORT 
es: 


022011 001342 
10 001342 


ef 68 e 


ms Oh 


; Ae Zi SSSESSEUeCSS | steA MAR IIEES 
fe ERR i 
E ERRERESSYISBSSSSIIUIE Se LA AANITMCN GRAM R BRAGS SoS PPS PT 


dd dh Bd dg dd 8 dG dd ed 
RG EG hd ed ed a ad ed eg ed ed ed ed ed a a dd os Et td 
SG Gd ee a hd GG a Rg gH hd ed a ed a ed ed gg oe ed dd td eg et et ed at ed et mt ed 









KOe 
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RECALIBRATE STATUS CHECK SUBROUTINE 


MACY11 30( 1046) 


RMO3 FUNCTIONAL TEST, PART 1 
1 = 29-JUL-77 13:33 


DZRNCA - 
OZRNCA.P1 


Hee Pree 
BLBsergeanas sLeSeaeeanms 


sezssnsves 


8s 
ve 
WITH 
mate 
eI 


Z 

a “he - i 
, Bey al ; OE be 
AT 4 a nT 2 
Sy bes veil Hb oR oes : £ & Bogs =a 
mot Bos bets 5 se ts fis 
te ee 
“o, BS - = & On — 
ig = a ge “3 935 3 a an aes 
= mal bis 4 Biss | pu a 
: ‘ 
S 


af! 
BEQ 


-_ SEsenge snes 


BIT 
BEQ 


“REPORT ANY “OPI ERROR AS 


31$ 
;REPORT 
4§: 
SEE IF “SKI” 


001 
001 
pl 
O01 
001 
1 
1 
1 


% BE =a BS : & £52 : 


Tle T 
——— SS eS 
reaieiniere fe 


| ceiepenteniaiiaiaenieeeminnetmmnniiants 


eg ed ag a a dd oh ed a hd a he et HH 
a Sd dd dh hd hd hd dd a rg i ed ed Od ad dd de RG ad ed ed ed 
I eg a de a dk a hh hh ed ad dt Ot ot td tt ot 


001370 


ae 2 Be q 


= ba : 


0S0200 
010000 001370 





LOe 


SEQ 0234 


RMO3 FUNCTIONAL TEST, PART 1 
2$-JUL-77 13:33 


Pil 


1 ASI rN ERROR CALL 


;EXPECTED STATUS 
;WRITE 
; MOVE 


WAS SKI SET?? 
;NO!? 


pO ss, 


by ites 


e 


EEgSeEeeanas 


trity! tritelty 


itraghit tritrity 





RETURN FOR ERROR 


Te USE On CALL 
PRO USE 


;RECEIVED STATUS 
SP 
T 
SP TO 


;WAS “DVC™ SET?? 
;EXPECTED STATUS 


ae 


ee 
S 


EgSeageanas 





Pease 


8S: 
;SEE IF 


-, MEDIUM WENT OFF 


I.E 
MOL DROP?? 


WAS OPI ERROR REPORTED?? 


;YES - DON’T REPORT MOL=0 


og, = Sas 
get # oe 

be ob eee Sais 
fe 


apes 


Lyarageanas 


;REPORT AN ERROR IF “VV" = 0 AND “IVC” = 0 


Se es 


om heme hee hem hem hee hee hem hem ham hem baw hen hen en hen hae hem bee han am how bean han hae kam ham hae am ham heme ane, heme ame ham ham, ham am ham loam. ham ham eam bean ham, heme here eae heme eam ham ham hem hem hem heme) 
eed eae ted me md ad my Og ee cea a OG a OG a a ead Cr ad rh YG Yd Od a) ad a a ad ed ad Od fd nd dd Od md a ed dd Od 
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SUBROUTINE 








DZRMCA.P11 29-JUL-77 13:33 RECALIBRATE STATUS CHECK 
11263 5574 932797 000100 001340 ev, RHOSI 019 “Ww DROP?? 
: ye 010000 001370 , RMER2I ee Gon Se ass" 
5 001340 001140 I,SGDDAT  ;EXPECTED STA 
pit RMOS sRECEIVED STATUS 


ao ;MOVE SP TO USER’S ERROR CALL 
BO TTT To ae TURN FOR ERROR 


) 
PC ote} 
#10, (SP) ;MOVE SP BACK TO USER’S BRANCH 


SeuesESSIERE 


10S: 
;REPORT 


a2 
4 


ERROR IF ATA IS NOT SET 
shia RrOsT sHAS ATA SET DURING RECALIBRATE?? 
EXPECTED STATUS 
RMDS! T  ;RECEIVED STATUS 
*MOVE SP TO USER’S ERROR CALL 
i O29 (SP) WRITE ERROR NUMBER IN CALL 


PC, a(SP)+ 
#10, (SP) ;MOVE SP TO USER’S BRANCH 


aoe 
2383- 

DBE 

s 


‘eaEgs 


11S: 


; REPORT BN ERR Ma "OM" IS NOT ZERO BECAUSE RECALIBRATE SHOULD 
; ALWAYS OFF 
, I WAS “OM” RESET?? 


y BIT 80M ; 
sYES!! 
RHO ‘ EXPECTED STATUS 
RMDSI, SBDDAT s RECEIVED STATUS 
#4, (SP) sMOVE TO USER’S ERROR CALL 
#103, a(SP) * WRI 
) *MOVE SP TO RETURN FOR ERROR 


+ REPORT ERROR VIA USER 
MOVE SP TO USER’S BRANCH 


mom 
oQ<o 
+ 


ReuESEE 


5 
. 


a 
ots 


ERROR IF “PIP” IS STIL ON, I.E., DRIVE NOT ON 
SPIP,RMDSI 31S DRIVE OFF CYLINDER?? 
1 *NO!! 


rire i iiniain eRe RC iy ial SAAR PAARS LA Sa sd 


Gree Bae pa Pee pet De Be me ame ene hme he Bene Dine Pee Ban be ae Bas Be Pas Ds Dae rae Dn Bs Pe ae ae Dan De Bene bee Dae Gan Pas ae fine Pan Get Bas dane Bas bee has fre ne en Pe ne ba he 
Pee Bs as fms Bae Fae Paws Ge be Bae Pe Bam Bem = me Fe fae ee peas Bae feat fam bas fee Pas Fs 2 bt Pt Be Rot Bas Bee Ps ee FP et Re Pe ee Bee 


Q ee 
Be 1, RMER2I WAS “SKI” DETECTED?? 
BNE *YES-DONT REPORT “PIP™ 
1 MOV 1,SGDOAT § ;EXPECTED STATUS 
14 BIC sPIP, $GDDAT 
1S MOV RMOS! SBDDAT —_ ;RECEIVED STATUS 
26 ADD #4. (SP) :MOVE SP’TO USER’S ERROR CALL 
1 MOVB =: 8104, a( SP) ;WRITE ERROR NUMBER 


NOe 
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29-JUL-77 13:33 


wry 


DZRMCA - RMO3 FUNCTIONAL TEST 


teteern 


ore 


aa 


sMOVE SP TO RETURN FOR ERROR 


;MOVE SP BACK TO USER’S BRANCH 


Pa SET DURING RECALIBRATE?? 


eeraer 


gi 
a alt 
hn "Bo o 
a sees» 
iB Beee © 


Taal 
poe SP 


eaeaseanas 


_ . 


14S: 


SP TO USER’S ERROR CALL 
PTO RETURN FOR ERROR 


;RECEIVED STATUS 


;WAS RMR SET?? 
;EXPECTED STATUS 


;NOE? 


a 


T 
T 


a, RMERII 

RRERI 
az 
Ral 
ee 


ofl Sac 


Peaeageanas 


é aaa E 
EL 


;REPORT AN ERROR IF “RMR™ IS SET 


15S: 


001342 
11 

BBL 1Ng 
aoti4g 





| ee 


sw igh 
dig 
oe pee 
i fe sie 
“in sim 


aa 
ae 


eth 


anes 


SUNS, RMER1I 


BIT 


;REPORT AN ERROR IF “UNS” IS SET 


Srvacagsanas 





DETECTED 


TO USER’S ERROR. CALL 


& 


056514 062716 000004 


<A AA Ra MSRARE YD: FERRI RGEC REEATSESRE 


RS eg gd dh hy a dd ed SH HH 
a ae ee ee ee a eee hee ee he ee he ee eee ae hee bee ee hee ee bee hae eae en ee eee ee ee heme ae ee eam hee hee hee bee eee eee ea ee Seat hee he the ed 


BO3 


)_ 29-JUL-77 oT a 234 


11 30 
RECALIBRATE STATUS CHECK SUBROUT 


SEQ 0237 


» PART 1 MACY (1 


23-JUL-77 13:33 


RMOS FUNCTIONAL TEST 


;STATUS CECK IS COMPLETE 


;WAS AN ERROR REPORTED?? 
SP) ;NO ERROR - RETURN SP TO BRANCH 


SP) 


Sion “an. 
SNZeE & 





eed ad ad Od Se 


SEQ 0238 


5 NOERROR 
FIDE Soe cvecxs 


= 


nate MORE ERRORS 


CO3 


Bip? SRG TED PT} BRR CPRAA"S Anus chettk Suatodfine °° 


et 7 STATUS mena 


PC, a(SP)+ 


SBTTL DRIVE 
3 
Fanon 
729 


i ED 


Spey 


CALL 
TO USER'S BRANCH 


SP TO ERROR CALL 


ee 
[nl 
- A 
om 
ze 


35, me 
ee 





See 6H OS OS coea Ry 
z 
= 
L on] 
z 
- 
- 

aR S. 5, Zane 

Po —tooewe 
Sats ree 
ie od me 

— 





I 
; 1 


ASS Soy Reueeee 


=AMUMTINOt Oo 


—— 


rrr rrTTITIT TT 


CALL 
OF ERROR IN CALL 
; MOVE one RETURN FOR ERROR 
; REPORT ERROR VIA USER 
;MOVE SP TO NO ERROR RETURN 


INITIALIZED 


;BRANCH IF EQUAL 


NOT INITIAL 


I, 
on 
Ke 
(SP)+ 
(SP 


Ee Lr 


IF 


=_ 


scce bat 
a aloes 


RaYBaR 


rTrrrsrrTT 


; CHECK are 
5% 


T 


001344 001142 


es 





Dd GG dG ay att Pe nd dg Ed dd ef ed ed ed Od md a red Od ee OG ed ee ed ed eG ed ed ed ee ag ed Ey ed ed Sd ed J ed 
Gd ea) ey nd Od Oma one od a re ed ed) a ad ad eh Od 8 ed nd Nd a Be ad cn Od a ed ad ed ad A dG ed i eg 


AND RECEIVED 


wT Re 
ION 
Gio In cae 
PO VIA UE, 
CLEAR DONT CARES 





& = iSSa0 Ps 

c Be Ee - Ee 
Gace Beseceoe Etseciowe & perieee pebeye 
e, besbesete © EEivceh: es Eieoeee E eiecehs Sleeets 


he ee eae . a3 ~*~ eeene ene . e eae . 
se i - ty ty 
> Land coe 
= zo eer = wt 
L om 
= & +. $ & 7. 2 & *.~ 2 & = ar S 
~ OF a ea os 8,35, sds -— awame uy ot a a oi a aS 
+e BUMALS ar TS y RT 


a eae Pe Bees Gectacd Gfbecacs ae 


ee ee ee 


- 


30(1046) 29-JUL-77 
DRIVE CLEAR STATUS CHECK 


MACY11 30 
7$ 

18S: 

19$ 





, PART 1 
013737 001370 oo1i4e | 


FUNCTIONAL TEST 
29-JUL-77 13:33 


SAAR KR AAR R ARR ARR RRR RR RR RRR RRR RRR RR RRR RR RR RR RM 
PaO ak mG a a ad a gO a eh ed ad eG mG ed ad Oy OG Rd RG Od ad ed rd me ed OG eg nd ad ed ad ed ed a a ad ad nd OE ad ad ad Gd ed 


EE cniaseniahianensd aameniaieaataaaenant 


E03 
BERCR.PLT See eae” OT} BRA CPRAA"SRAruS ciettk’ Guede’ = °°” 


SAUGMENT RETURN ADORESS IF ANY ERROR WAS FOUND 
BaP Tear ARP Eh 
#4, (SP) IVES - MOVE SP TO ERROR RETURN 
Sug #4, (SP) ;HOVE SP BACK TO NO ERROR RETURN 
RTS PC -RETURN TO USER 


ERERee 


bas ne Ps he ee Bs Pee ps Bee 





21$: 
23s: 


FO3 


RMO3 FUNCTIONAL TEST, PART 1 MACY11 30(1046) 29-JUL-77 14:32 PAGE SEQ 0241 
1 29-JUL-77 13:33’ SEARCH STATUS CHECK INE 


-SBTTL SEARCH STATUS CHECK SUBROUTINE 


rate sige IN We cet REFER Hho reer COMI TION STORED TN THE 
ABOUTS SNRs SLD PARR JE OB 


ene FOLLOWING CONDITIONS ARE CHECKED: 


-ANY ERROR WHICH OCCURRED WHILE READING OR WRITING REMOTE 
nectsreiS Ts REPORTED, “MCPE"=1 OR “PAR™=1 


iv THe PaOchant, WHGH Is BASED ON FORPAT AND ADDRESS. 


"OPI", IF SET, IS TED AS 1) “OPI™ DUE TO MOL=0, OR 2) 
or DUE TO ON CYLINDER LATCH. 


“IVC” IF ser Js 8 REPORTED AS 1) “IVC" ERROR WITH VOLUME 
— ZERO. OR OUS “IVC™ ERROR WITH VOLUME VALID SET. 


A, Ay 4 
-=- 





} 


fee es bee eo ee 


WUT UT UU 


."SKI" IS REPORTED IF SET 

: ."DVC” IS REPORTED IF SET 

: AN ERROR IS REPORTED IF “MOL"=0, OR “PIP"=1, OR “ATA™=0, 

;OR “VV"=0 

CALL: 

:(1) ‘JSR PC, SCHSTS 

7(2) BR 29 RETURN HERE IF NO ERROR 

5 (3) NOP RETURN HERE TO E : 
:(5) Fare PC, a(SP)+ Nee Se fe 

7(6) 9? RETURN AFTER ALL ERRORS REPORTED 


000004 ;MOVE SP TO USER’S ERROR CALL 
erent #4. (SP) Choe Shae 0 
tua ae 200s Pete eTBTUS Flake ERROR 
sTEST FOR MASSBUS CONTROL BUS PARITY ERROR WHEN WRITING REMOTE 
j REGISTERS 1.E.. “PAR"=1 AND “DPE"=0. 
001342 BI SPAR, RMER1I ;HAS, PARITY ERROR DETECTED?? 
000010 001370 BIT tOPE,, RMERZI *WAS IT CONTROL BUS ERROR?? 


SESEREGO~ SABLE RTO BOONTON os 


ao we 


REPORT CONTROL BUS PARITY ERROR VIA USER’S ERROR CALL 
MOV RMERII,$GDDAT  ;EXPECTED STATUS 
BIC PAR, SCODAT 


feos Beat Peme ben fone Par Ben the Bas Gao Peat foe eat Jae fas hee ft Gs De be fme Dee free he sn as Bae fe hae fae he fem Pome Pe Pent Be Be Dae fat Be de be Bt em Fe ee peo bao Be 


es 
8 
z 
Bg 
ss 


GO3 


JUL-77__14:32 PAGE 239 


SUBROUTI 


SEQ Oe42 


tts Cvetx 


( 


MACY11 
SEARCH STA 


OF esa’ tepals 


i Bev 


0 USER’S ERROR CALL 
Te IN CALL 
ERROR 


ORE SP TO NO ERROR 
;SKIP FURTHER ERROR CHECKS 


SP T 


sRECEIVED STATUS 
sMOVE SP’ TO 

$ 

q 


RMER 
#4. ( 
3 
ibe 
1s$ 


BSSshG Se 


x 
8 
: 





; TEST FOR MASSBUS CONTROL BUS PARITY ERROR WHEN READING REMOTE 


;WAS PARITY ERROR DETECTED?? 


nove TO USER’S ERROR CALL 
"To fer IE 

SP TO 
;OMIT STATUS CHECKING 


 ] 
PARITY ERROR VIA USER’S ERROR CALL. 
;EXPECTED STATUS 


T 
T  ;RECEIVED 


' 


- 


9 8 
. 
Z Zatee 4% 


SoasSanaae 


sit 
erate -~ yomed 


15S: 


DURING SeaRGn. ALSO Sef “SkI° FLAG IF CY 


yi 


> 
I 


S - SECTOR IS INVALID 


“YES - cite IS INVALID 
Rope age 

NO! ! 

18 BIT FORMAT?? 

“TRACK > 49? 


;SETUP FOR IAE=1 
;SETUP FOR SKI=1 


. i ta 
*SECTOR > 


T 


gb: 


- Wo - 


a 


2 Sibeibebetaial 
es sfss 
1- 

aoe 58 


31S IAE CORRECT?? 


“IAE” STATUS 
;GET RECEIVED IAE 


cI Ved 
SBDDAT 
SBODAT 
#SKT, 200$ 
SOs 


;COMPARE EXPECTED AND 
MOV RMERII, 
BIC etCIAE, 
CMP SGODAT, 
40S 


BNE 
IC 





ee ee 


OE GE mG dt a Od a a ad ed ed mg dG ed dd OS dd a a Gd ee ed dt 
dd a hd ed ed eg ee ed ed we eG mg ed ed ed ad eg ed ed ed ed ed gd de dd 


HO3 
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SE@ 0243 


ae 
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Tien 

:. : - an é 

» fig g os Ee ¢ : = : 

S 522 =e Sa th 

Eo pit be Seon fey Es 
ee a? P Syst woh «= ase SeeYeteby 86 gee 
a ae eee et ee ee 
B. PER ue F505 oh GaP AT 
oe 2 — i i ha 2 2 = = A 4 
eo Ss, 85 _ i 
ee ree ial “s 
¥e oon! a Salt Spee ae Ay 
eee 4 8 atin zee Se ar 
ra Ee Esveveget-canms “BD seeiainam: | EnGes 
a G ge. a gk 


g 228 Fe § 2 
@ Gee Be a aa 
oO 
age g& 
tf TE 


Sa i 


sc ADE AORER MRE TEN renMIENERTATEIN IT 


EG a a GG a me RR Rd a dG th a dd eh Eg tt et 
Bh ee dG ad ee a a ed ea a Og og dk a ee OG RE ef ee Cd ed ed mg ed a a ed a gd ed gd dd dt 





SE@ O2e44 


33 a : z Bd i 
Ee kip js Hep t 
ee |. 6g He oes eee 
oS, So, fr ess 1 Tea, oo Rs ross, aS at 
ae 2 meee SE. - anh a Oe 
neee fee & 2 y ae peee bEtegoee 6 os eo 
ot ee to * Sg ae & a ae oe 14 a 
Ge wii ¢ EZ ERR £ 5 st 


as ea 


a be Resmngs 


Cyacaryseanas 


»RMDSI 


I 
a 
i 
’ 


SBDDAT 
SP) 
)+ 
) 
MEDIUM 
“ON CYL 
»RMERII 
vi aed 
11 ,S800A ; 
if te) 3 
I ° 
Pl 
7, 
) 
=1 
) 
PIP 
a 
IF AND OPI ERROR 
il 
RMDSI , SGODAT 


;REPORT AN COR To ie IS STIL SET AND 
aK] 
130$ 


ae 
as 
Sc Beemaas gPPcgeeagingianms Faces 


PEPORT Gi ROR 


;SEE IF 
1208: 





eee 
888 

eka 2 B88 
gre a5 § : 3 





= 


EREREE UM NON 
co Kon Kem Reon hen hem bem iene! 
ssasssss woouovow KRRRAALRAALL 
essa eee BOONES SEES SESESEERESE EEE EE Se eetenetes 
BE 8 a a hh ard eg ed eG a Od Ok eG OG dd a Od dd Od a ed eg Gd dd 9d dG ed TOG ome Od Od a eg od eh 


JO3 


SEQ 024s 


ate. 


ee ctuce 
Sageanes 





or © OY ee an 
»RMER2TI 


SP TO 

ERROR 

TURN 
SP 


AND IVC=0 
; VOLUME VALID?? 


Se on 
+ 


Yes 
WAS 
YES 
ST 
sRECEIVED STATUS 
5 
: 


rynyemasecaras 


SSS : 
oe] oe 
ee ee et 
888 


seese & 


010000 001370 


140$: 


HOVE. SP TO USER’S ERROR CALL 
"EeROn IN CALL 


;1S_ ATA ON?? 
;RESTORE SP TO NO ERROR 


;YES!! 


: 
EXPECTED STATUS 
;RECEIVED STA 

’ 


a oe 
yecageaaas & 


BIT 


;REPORT AN ERROR IF ARSL IS NOT SET 


340 
40 
40 
42 


1 
1 
1 
1 


a ed 
g Bees 
| Sate 


sMOVE SP TO USER’S ERROR CALL 
sSTORAGE FOR FLAGS 


SS IF AN ERROR WAS DETECTED 
’ 
’ 





: RERSRREMMRREE TYPE EFS PrRAURRIDRES syasRsDEEP REE HER 


OE I eh Gd a dd a Gd Rd Ot a ed ea Ed ad gg hd eG ed gd dd 
ee ee a wg a ed a as a eh ad ed dd eg Cd GR dg ee eg eg ed Sg ef gt SH 


PRTG SOEUR CC SEERA LORE CSESER EERE SSS 


Pr 2 bs be bm be pe 


DIG Ul 





Qe Be fe he ae Pe Bes Pee es Re fe he ee ee Be en ee ee me be Be ee be pe be ee ee ee ee bf tee be ee ee 
fs ae be Pe bb Pm Os bm Ps BF Ps OB Bb be me Be 0 en bt 0 ee Be BP bh Pe 


RMO3 FUNCTIONAL TEST, PART 1 MACY11 30(10%6 
13:33° STATIC DRIVE STATUS CHECK 


-SBTTL STATIC DRIVE STATUS CHECK SUBROUTINE 
SATs See OOKS FOR UNEXPEC ag ats 

Ca gee Ue hed ert ne ECM THERE 

oh Be BE ANY ORIVE ERRORS 

cornie CONDITIONS ARE TESTED AND canal AS ERRORS 


mean 


Pil 29-JUL-77 


29-JUL-77 


14:32 PAGE 243 
SUBROUTINE 


SEQ 0246 


ERRORS OR CHANGES IN 


OFFLINE, NOTE 
, INDICA NAG i VE 8-08 OFF “EYUTHOER 
fs FIGHTER IE DRIVE Hes Sat UESPELTED nomye 

; THE SUBROUTINE “a CALLED AFTER STORING STATUS IN THE GET BUFFER. 

PC, STCDRVSTS 

294 TURN F NO ERROR 

bees o's 
rears ERAT CR HF we eee OS 
S ERROR 

GAS ) sHOVE SP_ To USERS Ginn cal 

#4. (SP) orecK ONO NO ERROR RETURN 

“vr = 1. AND en 2 

RMDSI.-(SP) IVE STATUS ON STACK 

8tC<PIP!MOL!VV>, ish 

SHOL!W, (SP)+ ";ARE MOL, WV AND PIP 0.K.?? 

30S *YES!! 

ERROR IF = 0 AND” 

sou RHOSI MOL ON 2? 

10$ Hest 

80PT, RMERLI WAS “OPI” SET?? - 

ASs1. scopaT ante pial 

#MOL . SGCDDAT 

Rr | $800 . 10 T yi ERROR CA CALL 

#207, 3(SP) et ERRORUTLPGER. IN 

82, (SP) ; ROVE STO RETURN FOR ERROR 

PC’ 3(SP)+ * REPOR VIA USER 

#10, (SP) *MOVE SP BACK TO NO ERROR RETURN 





SEQ 0247 


10S: 


vhs 


~O—-( « 


at pe 


Savneesase snes 


—t oe 


888 


aeaeee & 


eee : 


000100 001340 
010000 001370 


Se 


S2cUREESSR=ANe 


a a dh ei do ee et tt ee 


Spabebubebabababsdebedebebakebebebabedakebekebehehadedekekaketekekekekehebehehehehehehekakekekekakekeberbebeet ds 
a re dh eh a) eg a 8 dR eG eg ed ed ed ed a Od ed GG eh ad ed he EO te 


Sis 


sunbatcuucs 


oP. RMDSI 


;REPORT AN ERROR IF DRIVE IS OFF 


001340 


040000 001370 


sroeee 


oad 


a dd ad hd wo 


peyacegeunas 


;PUT ERROR REG 2 ON STACK 


, (SPS 


;BRANCH IF NO ERROR 


+ 


0 
I,-(SP) 
'DVC> 


eg 
ze5 . 
eu hh & 
a5 2 Sato 
oe : 


A DE 
’ 
; 
’ 
’ 
’ 


sna 
gi? 
ra 


aa 


& 
snababaeatnt 
: 


- 
_ 


001370 
40 
40 
42 


oobos 


MEN Rteitees 


Od a ad 


;REPORT AN ERROR IF “SKI” = 1 


MO3 


29-JUL-77_ 14:32 PAGE 245 


om 


; ERROR VIA USER 
;MOVE SP BACK TO NO ERROR 
TO 


T 


THERE A SEEK INCOMPLETE ERROR 
EXPECTED STATUS 

- MOVE SP TO USER’S ERROR RETURN 
;NO - MOVE SP TO NO ERROR RETURN 


sRETURN TO USER 


RECEIVED STATUS 


RITE ERR 
MOVE 


ia 


SUBROUT INE 
. 
: 
8 
; 
’ 
’ 
ANY 


Biss bss 
ea ee ae 
w 


reaeaseames 9 fghgsease 


PC 


STATIC DRIVE STATUS CHECK 


MACY11 30( 1046) 


dat et 


Ace 
_ 


BSRSoess 
rT 


tt ht tt oe 


RE 





pububabed ttt th ttt tant 





Pre ame poe ban ban pon Ge ht 


aaa EPS BSP RE ca aaa Rin pei et 


CRESS 


be ae Be Be be Bm pe a ae Be hb be nd Pe Pe an = Pn Oe be Oe ee ne en Be ee ee ee ee ee ee ne Be be he ne Oe ee 
Oe ee Be ee ee ae ne Be ne bn a ne Be a be Be bn ee ae Oe Be ae ee ee Bn ae ee ee eB Oe ee he ee 
i oa 
o 


- RMO3 FUNCTIONAL TEST, PART 1 


Pll = 29-JUL-77 13:33 


> 
061416 
061416 013737 001342 001176 
Bets : 001176 
14 1 001 001200 
061444 047637 000000 001200 
1 
wee 
1462 16 





BES cour 
1 001176 001142 
Bui 


ee 


pear 


EEL ten 001142 
000004 





NO3 
MACYI1 30(10%6) 29-JUL-77 14:32 PAGE 246 
COMPOSITE ERROR CHECK SUBROUTINE 


CHECK 


-SBTTL COMPOSITE ERROR CHECK SUBROUTINE 


i RMR SUBROUTINE CHECKS THE ST' 


ae Eve He HM 5 eee aeaes 
mh JSR «PC, CMPERRSTS 
; MASK FOR ERROR REGISTER 1 
BR 299 RETURN eh nO ERROR cell 
ae PC, a(SP)+ cro TO g bere ERROR CHECKS 
: 299 RETURN HERE IF NO MORE ERRORS 
NOTE: BITS TO BE MASKED SHOULD BE ONE; BITS TO BE TESTED SHOULD 
CMPERRSTS: 
MAG TORE REMIT © SMe MEAP Here svomc 

eIc ao coh) : i ROVE SP T NEXT MASK 

MOV RMERZI.STMP2 § ;STORE RMER AT TEMP STORAGE 

BIC a(SP), $TMP2 *MASK RMERC 


; SF oa hare ERROR CALL 


, (SP) ‘LEAVE SP AT NO ERROR RETURN 
SEE IF THERE WERE ANY ERRORS ad RERL STMP1 
T I SINPl pay EAROAS' to to REPORT?? 
MOV STMP1, SBDDAT ie Liven STATUS FOR TYPEOUT 
a a 
#4, (SP) 4 

MOVB 866 a(SP) ; CORR TABLE fa CHECK Eek ERROR - 
auR wel shove TERROR VIA 
sug #10, (SP) Yh reo 


SS: 


;SEE IF THERE ARE_ANY ERRORS TO REPORT IN RMER2 (STMP2) 
we ERRORS IN RMER2? 


STMP2, SBODAT 
SGDDAtT 
#4, (SP) 


;RECEIVED STATUS FOR TYPEOUT 
EXPECTED STATUS FOR TYPEOUT 
;MOVE SP TO USER’S ERROR CALL 


SEQ 0249 


: 
w a 
Ree BEG E 
ari 
te Hig 
PES pti: 
4 om ye ey 
of oe 
Hiss be a 
ts ee se care 
E tess aire 
; § 
Tie 
[eg in 
eee 
f= gasses sesesse 
| IRMDIBECRREREREE 


ee a eh et Sg ee ge 
eed a8 aR Oy Cd OY ag eg od ee ed ad 





CO4 
“77 ef':32 PAGE 248 


SEQ 0251 


SHUTBOUN 


-SBTTL STOP AND SHUTDOWN SUBROUTINES 


STOP 


PS 

PC 

PC 

PS 

PC 

PC 
«TYPE THE HALT MESSAGE 
- G0 TO END OF PASS 


;RUNNING STANDALONE 77 


BS 
a a ae 
cee beee § FSte of 


EDS 


aPR6, 
#6S$, 
PC 
100$ 
2 
Os 
SEOP 
START 


; DROP dag TO ALLOW CONSOLE INTERRUPT 
MOV 
RTI 
NOP 

OR 
MOV 
RT 
RTS 
TYPE 
TST 
BEQ 
JMP 
IMP 


100$:  .ASCIZ @TEST WAS HALT 


STOP 
’ 

64S 

’ 

65S: 
10$ 
SHUT 
10$ 

- EVEN 


mica) OG ee 
3 S855s2 S358 8 Basses 


-_ SH HO Ge a a a ed dt wt 


8 8888S 8888 § 88888888884 
COL CEL ELE Sada sade ers 
EG Og dd ah ad ad dd a nd ed Od +} 


Gh ad a dd a a gd a ed ad ed a ad sy a 


14:32 PAGE 249 
NES 


DO4 


, PART 1 MACY11 30( ) -77 
SAVE AND RESTORE RO-Re ROUT 


TIONAL TEST 
JUL-77 13:33 


az 
a3 a 
zz 


qagghenuse 

ee suas PPeee 
SSESESS' Le" 

scuszerere peg TEE 


Peeeeeanas §6«©—«-- BSED ES 


;NUMBER TO BE TYPED 
SAVE Rl ON THE STACK 
;;GET THE INPUT NUMBER 


3; TYPE IT 


»~ (SP) 


ithtnOsOith-2--o—> RRRNEE Soe 


reme eet: :tt, ++7tt+ +++ + + + 


ave  —«-HARBDRARHD 


ee et et et et ee et et ee ee 


SP 
SP 
: 
, BINARY TO ASCII AND TYPE ROUTINE 
| UHHNHHHHHHHBHHHHHHHHHHHHHHHHHH HHH HHH HHHHHEEHHHHHEE 


;#THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 16-B81T 


; *BINARY-ASCII NUMBER AND TYPE IT. 


RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 
( 
( 
=( 
={ 
( 
( 
( 
( 


j4TOB-—-(+16) 


* MOV NUMBER 
Ri, -( 
6(SP), 


TYPBN 
: MOV 
MOV 


© S-S6-SE- SE ME SE M6 M6 He HE SE SE SE SE ESE 0 SEE SE SE SEE Sb SE A SH SS 


-SBTTL SAVE AND RESTORE RO-RS ROUTINES 
;#SAVE RO-RS 


> 

j #CALL 
} #UPON 
5% 

3% +2---(41 
$ 

E 

+i 

a+] 

: 

g 
SSAVREG: 
; #REST 
pees 
bfesrec: 
SBTTL 
*CALL 

& 
-% 
STYPBN 


00022 






Og a ed ed dd et eh med ad one 


mceareenees as 43 


BESSSESESEES 






c MUO TNO. ONS P) { 
tt tl J 
itatatatatrtatiy UCUCUCUCUCUeL aes ivhrtotattipitay 5 a — fafa a i 8 ao 


SISSIES Sa ar 


E04 


ae Jes’ PAT! BARAT FB‘ARCHL afd Pree’ houtine™ "0 


Sane as 
T 
GAN KEEP TRACK OF BITS 


ar 
eat 
? a ecIt CHAR. AND TERMINATOR 


TRACK 
ASCII 
CHARACTER EQUAL TO THIS BIT 


em OS OS OS OB (ROS OCHOA enee 
8H OB OS OS HOH *S OS soe eae 


nel 


oO 
~ Fad 
-o~ 
on erw 
8 tc «¢n¢ 
o m9 wth a oF 
saemge “95% SS 


sca sarenctl 
: 


gE 


000004 


teeeir 


ane 





od 
3 Sa 
ee i " 
eg v a 57 ue B2 
egnd 8 S ie oS eo ee 
“ee Ae 
fe Meese ies Ey 
Sra ee: wrySer oe recs 
a 2 gaunege ee eed eee Bite e 
shi Ee 228ewialiiatee etecatattis 


cocoate § 22 6 = + 
bhhbhes- & 2 © “ _ Eyes 
eich ol pantaniebahee 


SBBSSBBaoTbe Ie taea Seer msess 


: 
= in eee 


nn 


sn bam bem ben han bam ban ham bam bam bam bem bam bam bam bem bam) 


Sawel 





‘ple PRESTR Ree se ela 
=} ,= Be = RaSh ht eerie 
cucucucucuCuCUcuCUCUcCuCuCuCuCuCuCuCu cu 





RiNRned CRURRRM CURR RRR COC URORHRMGTTeRRaNTTaaNes 





TT AIM’ MIDER 10 A GDI 


| JHHIHHHHHIHHHHEHHHHHHHHEEEHEHHEEHHE 
; #THIS wt IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 


OZRMCA - RMO3 FUNCTIONAL ‘TEST, PART 1 MACY11 30(1046) 29-JUL-77 14:32 PAGE 251 SEQ 0254 
DZRNCA.P11 29-JUL-77 13:33 CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
23 ae TST (R0)+ 5; JUST INCRENENTING 
: Be HOPES hs tes of? 
BR a i cope TO 
gS: FSB (SP) iia sb THe FIRST NON-ZERO? 
177777 177776 HOVE ASSP) » BCR) He THE SIGN FOR TYPING 
a en Ee 
Mint SA bib Stack INTO Be 
MOV (SP +, Re ;;POP STACK INTO Re 
ei pov. (Sb)3,hd Pa Stick INNO Bi 
000002 000004 MOV 2(SP),4(SP) oe of ie STACK 
MOV (SP)+) (SP) 
i RTI ;;RETURN TO USER 
SOTBL: 10000. 
1000. 
44 190. 
: SDBLK: ee 4 
: -SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
57 
3 
60 
: 


Pre Gas fae fe Pe be fee be eB pe Be ee Be ee be Pe be Bt Be bm Be fe lee ee ft mm fe fo pt ho Be Bs bs Ps pe 
forororororuroforurorore rorurororororororororururorororurororurorororurororurur 


ee ee ee ee ae ee eae a me ae ee en ae me me ae ae en Be ae ae ae ee ae ee ae Bae ee en ae mee en fe bn ee Be Pe be be he eb be Be 


* #OCT ) TYPE I 
jaSTYP MERE 10 SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
:# MOV NUM, -(SP) ;;NUMBER TO BE TYPED 
ft TYPOS ;;CALL FOR OUT 
2 i -BYTE ON :N=1 TO & FOR NUMBER OF DIGITS TO TYPE 
i -BYTE &M 3;M=1 
3% 3342 LEADING 
i* 33 SS LEADING 
:¥STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
:#S$TYPOS OR STYPOC 
‘% | MOV NUM, -(SP) ;;NUMBER TO BE TYPED 
ii TYPON CALL FOR TYPEOUT 
i *#S$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

12169 os MOV. —s NUM, ~( SP) ;;NUMBER TO BE TYPED 

i 70 + TYPOC *:CALL FOR TYPEOUT 

1 062322 017646 000000 STYPOS a(SP),-(SP) ; ;PICKUP MODE 

1 53205 11 000001 062545 1(5P),SOFILL ;;LOAD ILL SWITCH 

: IGITS TO TYPE 

1 83 

1 

1 

12 


BIKAz 
= 
eS 
agate 
at 
; 


;;SET THE ZERO FILL SWITCH 


112737 000001 O6254S STYPOC: 
112737 0625 SOMODE +1 ;;SET FOR SIX(6) DIGITS 





“3 


a ag He T, PART 1 
-77 13: 








MACY11 30(1046) 29-JUL-77 14:32 PAGE 2S2 
BINARY 0 OCTAL (ASCII) AND 





STYPON: ye BS) ie ee 
R fakin [ene 
HOV +1,R4 He te OF DIGITS TO 
ADD 86,R4 es T IT FOR MAX. ALLOWED 
MOVB = R4: SOMODE a Fin USE 
MOVB SOFILL,RY i351 THE ZERO FILL SWITCH 
MOV eet: ;;PICKUP THE I NUMBER 
CLR *:CLEAR THE 3 
1S: ROL RS : :ROTATE NTO “C” 
BR 3$ ;;G0 DO 
2s: ROL RS ::FORM THIS DIGIT 
ROL RS 
MOV »R3 
3S: ROL R3 ; GET LSB OF THIS DIGIT 
Bere sgriove ion TF | 
BIC 8177770,R3 *:GET RID OF JUNK 
8 sg Sale 
9° 
ug: he Be Dower Ss 
BIS $’0,R3 He THIS DIGIT ASCII 
cS: BIS na, ks +e pSscIl IF NOT ALREADY 
T HH THIS DIGIT 
7$ DECS «- SOCNT >: COUNT 
BGT es ;;8R if TO DO 
BLT 6$ ;;BR_IF 
INC RY ?: INSURE DIGIT ISN’T A BLANK 
BR 2s > 360 LAST DIGIT 
6S: MOV (SP)+,RS i Rest One 
my (ee) TEE 
HOV 2(SP), 4(SP) He re Back FOR RETURNING 
RT . Fe 
QS: Rte 0 STORAGE FOR ASCH DIGIT aa 
SOCNT: BYTE 5 Hocta Oily COUNTER _— 
Sonate: ee 1 + ROMER be Brarte TO TYPE 
SB TYPE INE 
KEE 


ss SHEER ERE EE 

j AROUT NE TO TYPE IZ MESSAGE. MUST TERMINATE WITH A O BYTE. 

+} ROUTINE WILL INSERT A NUMBER CHARAC A LINE FEED. 

; TEA: SNULL CONTAINS THE CHARACTER TO BE ee FILLER CHARACTER 
; #NOTEe: SFILLS CONTAINS 3 NUMBER OF F TERS REQUIRED. 

; #NOTES: SFILLC CONTAINS CHARACTER TO FILL AFTER. 


; #CALL: 
;#1) USING A TRAP INSTRUCTION 


SE@ 0255 


DZRMCA - 
DZRNCA.P11 






Pepa #4 


Gree Bas fas Bw Br Bee Bae Gao een bee tos ha he boo baa hae B= Deo Be bt Be fee eo am bm bo bet het 
+ 4 


ee oe 


001173 


Bo000! 
Desseb 
000040 


000011 


116176 


RMOS FUNCTIONAL TEST, PART 1 
29-JUL-77 13:33 


001242 
001243 


001243 


wey atl ) 


;# TYPE 
o 
2% 
a 
iy RRSAOR 
;# 
STYPE: TSTB 
BPL 
HALT 
BR 
1S: LM 
CMPB 
el fe 
MOV 
JSR 
61S: . WORD 
6e$: gis 
2s: MOVB 
Fer 
60S: MOV 
3s: ADD 
RTI 
4§; CMPB 
BEQ 
CMPB 
BNE 
TST 
TYPE 
SCRLF 
CLRB 
BR 
SS: JSR 
6S: CMPB 
BNE 
MOV 
7$: DECB 
BLT 
JSR 
DECB 
BR 
;HORIZONTAL TAB 
8S: MOVB 
9S: JSR 
BITB 
BNE 
TST 
STYPEC: TSTB 


29-JUL-77 14:32 PAGE 253 


, MESADR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


STPFLG iTS THERE A TERMINAL? 
1$ BR IF YES 
fi IF NO TERMINAL 


Sh et des eSCIZ STRING 
Bron. sown |S eth 


MPT CONSOLE 





ROORESS FOR APT 
’ BOK > ars T 
o)+,-(sp) FPA TYPED ONTO STACK 
ug Aran The FERMINET 
(SP)+ fesite Ro POP IT OFF Te STACK 
(SP)+,RO 
#2, (SP) 
SHT, (SP) de IF <HT> 
SCRLF, (SP) ;;BRANCH IF NOT <CRLF> 
(SP)+ ;;POP_ <CR><LF> EQUIV 
:: TYPE A CR AND LF 
SCHARCNT CLEAR CHARACTER CO COUNT 


2s 
SFtitc, (SP)+ i shies PROCTER LLER CHARS. ? 
sn ite NEEDED 


SNULL , -(SP) Hier 


1(SP) Does, A NULL ie TO BE TYPED? 
bs ead THE NULL OFF OF STACK 
SCHARCNT igs NOT COUNT Bi AS A COUNT 
7§ : :LOOP 
PROCESSOR 
8’ . (SP) ; REPLACE TAB WITH SPACE 
Pc, $TYPEC 3 TYPE A PACE 
tite st 
(SP)+ A ane OFF STACK 


CHARACTER 
asTPs :;WAIT UNTIL PRINTER IS READY 


PRs B= b= Be B= ht Be Fe fe he Bm be be be = fa bm bm be b= ee ee 


eset ty ter ty 


eh be ees ee fa Be fen fon fe f= Be he Be bt = be fm eb be he he 
+ + 


i’ 


HH 


fet Pepa Bo 
+ 
v. 





SPE SEES NT 


WD NGUN£ We 








116106 


116040 


T04 
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TYPE INE 
BPL STYPEC 
MOVB 2(SP) .aSTPB OAD CHAR TO BE TYPED INTO DATA REG. 
ae ,etsP) eee TER A CARRIAGE RETURN? 
cL SCHARCNT MOHARACTER COUNT 
1S: CMPB mF 2SP) Be CHARACTER A LINE FEED? 
BEQ 5 “BRANCH IF YE 
INCB = (PC) + COUNT THE CERRACTER 
SCHARCNT: . WORD Q. * CHARACTER COUNT STORAGE 
STYPEX: RTS 
.SBTTL SCOPE HANDLER ROUTINE 
33 SME EEE 
:RTHIS ROUTINE fe THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
:#AND LOAD DISPLAY REG. (DISPLAY<7:0>) 
3#AND LOAD ay NYO DI Vets: 08> 
i xTHE yantTcH BY THIS ROUTINE ARE 
:eeul i=l tall T ITERATIONS 
;#SWO9=1 On ERROR 
j #oWOB=1 OOP ON TEST IN SWR<7:0) 
; SCOPE ;;SCOPESIOT 
SSCOPE: 
cK a ued ;;TEST FOR CHANGE IN SOFT-SWR 
1S: BIT s6tT14, aSWR ;;LOOP ON PRESENT TEST? 
BNE SOVER IF SWi4=1 
-gaeeeSTART OF CODE FOR THE XOR téSTeResees 
$XTSTR: BR 6$ 33 iif RUNNING ON THE “XOR™ TESTER CHANGE 
:3 THI TION TO A “NOP” (NOP=240) 
MOV OF THE ERROR VECTOR 
HOV }}SET FOR TIMEOUT | 
MOV xR eR VECTOR 
BR NEXT TEST 
Ss: CHP TACK AFTER A TIME OUT 
Ss BREOENY fest 
6S: ; 88888END OF 
BIT C. TEST? 
BEQ 
CLR . LOCATION 
MOVB T NUMBER 
BEQ IN SWR 
CMP I SWR 
BLT NUMBER IS OUT OF RANGE 
C 
FS. ep fae NUMBER AS AN INDEX 
nov ea LOOP AOORESS fo Se iEeT 69! Test 
BR 


SEQ 0257 


JO4 





SEQ 0256 


onan ng rtm 


acausunaaanaaanaensen aia 


$$5SS$SSSSSSSSSSSS5SSS555 


THE BAD TEST NUMBER OFF OF THE STACK 





. NUMBER OF ITERATIONS 





' 

Su. “tg Sasisisststatstats 
E Sataten Rote © aa Eee ees ee 
%, ° bbs 

+3 on x YeypeyysaLaraacs ake hee 
= 1dnnceomnds USAR 


Ha cee af C8 


ee 4 
jn SB 2 8888 8 
=6Bs & ss88 & 
& B28: 4° t8@6& & 
a nu = x. — wo o-w 
8 388 % 5838 8 88 eeesaasesn 
o 4 _ _— = a — on hem! som ham baal — 
6 8888 88 8 8 88 sésseee 





Ns) oF wo 
— tai) —t 
-_ 
tad “~ 
5 3-ARGASs PHOS 4 














ee a OC 
N : “aga ag at: 
BESS SOS nNS ty TNTNTy statatatats BRR OMmemman: 


VUGUUUUUUUUUUN UUM eed eg eed od ed ad 8 ad a eh ed a Og ee a ed ed Om ef wd Me HI Ee om 





KO4 
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SEQ 0259 


DZRMCA - RMO3 FUNCTIONAL TEST, PART 1 MACY11 30(1046) 
DZRMCA.P11 4 29-JUL-77 13:33 SCOPE HANDLER INE 


BABA BRSS SPST PPS RHRRARRGSSIBSSLSREN 


qa cdadudadd ad cdadaaaaa ed adanaaaaad 


fete Sottero 











Syste ss 
re o 5 3 
ByStdee 


oy 
HE 


001212 


ceeeReARAREERARRETRREERERE? 


Rd mg dd hd hk a a I dd db ho Od 8 ef ed Og ed ed od et ee 


LOY 
PART 1 WACYI1 30(10MG)29-JUL-77 14:32 PAGE 257 SEQ 0260 


1 
112 1S: SERTTL ;;COUNT THE NUMBER OF ERRORS 
;GET ADDRESS OF ERROR INSTRUCTION 


a 
i 
3 
ea 


Bg 
: 
: 


is 
gis 
ro 
Z F 
2 3 
: 

: 


SAPTENV , SENV 33 


oa 
To) 
fad 
=z 


Ptasth | 
: 
“ 
- 
: 
z 
i 


g Eel See Carleen Re Wce 
q § 
oh 5 
Bate | fumasees 
Beye 
aaa 
egoneg 
a 


OR CHANGE IN SOFT 
001000 115254 3S: 881709, aSUR i 5LOOF ERROR SWITCH SET? 
1124 SLPERR, (SP) Fuge FOR LOOPING 
1210 4g SESCAPE >;CHECK FOR AN ESCAPE 
BEQ :BR IF NONE 
001210 “ MOV SESCAPE,(SP)  ;;FUDGE RETURN ADDRESS FOR ESCAPE 
042224 ooon42 = CMP #SENDAD,a8#42 ;;ACT-11 AUTO-ACCEPT? 
BNE 6$ , :?BRANCH IF NO 
6s HALT ;;YES 
j RTI ; ; RETURN 
SBTTL TTY INPUT ROUTINE 
H ive is KEEL LLHLKGER AA KEES SRA GRS RL AREA RE REE AA ARK RE KLEE 


BE 
3S 
aS 
5 


;;QUTPUT POINTER 


8 OF IN QUEUE 
6 5 MUEER OF 
1 :;TTY KEYBOARD QUEUE 


e 


si 
4 
Fo 
S| 





$ 
4 
z 
5 


Pet bs ee Pe J bes fhe ee Bn fhe Pot bn Boe es fe Be be be = em ts ee en ee he te ee ee ee 


Beane 
“f 


ANTKVEC {INITIAL 
#200, a8TKVEC+2 ;;"BR” LEVEL 


Ze 

a 
J 
a a xe 


RRO 


CE ee ec oa ol 
oO 
RR 


SEQ 0261 


MO4 


29-JUL-77 14:32 PAGE 258 


MACY11 30( 1046) 
TTY INPUT ROUTINE 


29-JUL-77 13:33 


Pil 


DZRNCA - RMO3 FUNCTIONAL TEST, PART 1 


LEaianh 2 Biel hla: 
opiate iy Beene area 
SBplce eee 
cacncs ce Pw Sse teetcs| moan carer soknk Bohai 

= F 58 , en 
: Heeee | 8 tte § ite § 
Se Edéuen Re os «do ontaececnes Ebebefheens 


ap sae shusrreschsrenbaceehyee 


et 


99 
99 
99 
99 
5p RMR ERE EERE EEE ELE EERE EERE REELS 


ee 
wa 
4 


a aa 
s 


=288 


= 











CAT eo Sr te, 


Pee 
niin is RUTH 


dG a dd a Gd ed dg SE ph bah pe ge 









A 


aah thst, t, nes r ner VSS SPSVESVES UES VEST OS 


3 





TN 
Bem: 
* 


TN 





4 









Soe 










064316 





000176 001154 


114712 
114 


000001 


001151 





MACY 
TTY 


11 30¢ 
INPUT ROUTINE 


1046) 29-JUL-77 14:32 PAGE 259 SEQ 0262 


Sc nae hss me 


SGTSWR: 


19S: 
7$: 


-SWR SELECTED 


CHP 

1 ssGMTT YF 
pegs nares 
Bie Hite (3) a 7-BIT ASCII 
cre (SP), a? 


HER NOT pu ean THE TTY QUEUE 


SCONTROL IS FROn TM SOF THAR 3 TO THIS POINT FROM EI 


ara? Precis Sih 


Meh i he 
Gro” ser 4 + 
JR Pe STKINT is Fetr BuELe 
ah, Ske | Cg 
MOVB 81, SINTAG He TOR 
TYPE , SCNTLG 3;ECHO THE err coe (16) 
yPOC SEG, (SP) ewe Si a psctTALL DIGITS) 
TYPE. , SMNEW + BR OMPT FOR HEH 
CLR ~(SP) $8 COUNTER 
CLR -(SP) $3 
STB asTKs 4 ? 
7§ t: IF NOT AGAIN 

MOVB § @STKB,-(SP) ;;PICK UP CHAR 
BIC ##C177, (SP) ::MAKE IT 7-BIT ASCII 
cHP (SP), #3 ji18 TT IT A CONTROL-C? 
TYPE SCNTLC is BRaNCe bo -¢ (10) 
ADD 86, SP i CLEA Up oot * 
cree SIATAG, #1 uF TTY KEYBOARD INTERRUPTS? 
MOV «$100, aSTKS Has! KEYBOARD INTERRUPTS 
JMP SHUT *:CONTROL-C RESTART 

(SP), #25 ITA -u? 
ge RA EP 
TYPE ~° ,SCNTLU tives ECHO CONTROL-U (tU) 
ADD 86, SP 3; IGNORE PREVIOUS INPUT 
BR 19$ ?:LET’S TRY IT AGAIN 


OQ 
3 
v-_ 
% 
~ 
< 
} 4 
wm 


3;1S IT Hw <CR>? 


"3 


13630" 


oe 


v1 


PHS ES TSIAAA RANTS RU RSET S ESE SS TC AOAC EAA 


a 
Saaaae 





BSS 


Bee ORERDRDRDRRRRDR RR RR RDN R RAR RARER ERR RRR RRR ARR RRR RRR RDU RR RRR 
—— 
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NE 1 eT 14:32 PAGE 260 


SEQ 0263 


BNE 16$ 33 IF NO 
pe tt $3 Is id oe THE FIRST CHAR? 
Q ll $8 
" MOV 2(SP) , aSWR $3 
tte POPE "oat - ue, ur 
ces SINTAG, #1 33 TTY KBD INTERRUPTS? 
HOV #100, 3STKS ;; RE-ENABLE My KBD INTERRUPTS 
15S: I 33 
168: JSR PC, STYPEC ECHO CHAR 
CMP (SP), #60 *:CHAR < OF es 
BLT 18S ; } BRANCH 
chr (SP), #67 *3CHAR > ie 
Bre (SP)+ ;3;STRI II 
TST a($P) 31S THIS THE FIRST CHAR 
Ber te) BF PRESENT 
ASL (SP) 33 ‘hee OVER MAKE 
17S: ine 2(SP) ; heer Count oF cH 
I =2(SP), (SP) +:SET IN NEW 
18$ Pre 4 s iif tc >< = 
ee ee: tCTMLATE. 
.OSABL LSB 


j | HHH UHHH HHHEHHEEHHEEHHEHHEEEE HE JHE 
tins: ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


3% ROCHR 
3% RETURN HERE 


SROCHR: MOV (SP), -(SP) ;;PUSH_ DOWN THE PC AND 
MOV 4(SP),2(SP) 35 Ti 
CLR 4 (SP) + 3GE Pe epy FOR A CHARACTER 
CLR -(SP) PUT NEW PS ON STACK 
MOV #64S, -(SP) *:PUT NEW PC ON STACK 

ous RTI ;;POP NEW PC AND PS 

is: T T STKCNT — ON A CHARACTER 
pve SSTKOOUT,4(SP) 
INC Kost ae 
cH QOUT, SSTKQEND ; iid D 10 ee OF THE END? 
HOV SSTKQSAT, sTKQoUT’! rf ORNICH TF NPOINTER 


Hr eeessenennneeneest berneseereenecaeeernereeceeienn 
HATHIS ROUTINE WILL INPUT A STRING FROM THE T 


COS 


is T, PART 1 BOCY 130106) 29-JUL-77 14:32 PAGE 261 


SEQ 0264 


Bawrea.Pll eeu 


+ : 
- z g is 
~ 
=i z e 2 st 
eee dT an + 
me pias TEM ieee ote fs 
2 Lite ll, PRE bg me ie 
fant ie Ho8 "apa, S58 ms swear, SeEnEewe Ese 
mis mt Bafa Se tS eigen! Extzey yee 
i sie! disbee? Coieieres We EE 
23 Sa = 6° 
8 =e 2 2 BE s 5.28 
MB site Hinde rs Sted sadésbe endl 
ae aranSbdfeen Stamos ePoBe eB toaeErees 
wen Bag 8 $ 8 # @ #8 a 
: : B 
te SS Sk 8 2 “ee S88 8 2ee @ 
af § sid ali . 








TUNDe. 
ed ES et Od ef md mG 5 


* 
eed) On wee a Om wae ad ae) ft ed a nd WEG Hr Oa EK eG Bd ed dO dR ed a Td wa ad ad Cad a) Od ee eG OG Od Ue OS gd Od ed od ed 








UU 


MACY11 30(1046) 29-JUL-77 14:32 PAGE 262 
ROUTINE SEQ 0265 


TTY INPUT 


SCNTLC: -ASCIZ 496715) 12) ;;CONTROL “C” 
u: -ASCIZ 7415) < 12) : s CONTROL _ 
BUTS: FREES ICIS OAR, - ,F HCONTROL 
SMNEW: .ASCIZ / NEW = / 
‘OF READ AN OCTAL NUMBER FROM THE TTY 
5  RAREERSRSALSRELA SLE RLER RES ELLRRRL EEL LERHERS ER LAA LEE ERRER EERE AAS 
sETHTS ROUTINE WILL. READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
5 * RDOCT ;;READ OCTAL NUMBER 
i RETURN HERE *3LOW ORDER BITS ARE ON TOP OF THE STACK 
i :;HIGH ORDER BITS ARE IN SHIOCT 
SROOCT: MOV (SP), -(SP) ;;PROVIDE SPACE FOR THE 
MOV 4(SP) 2(SP) He ur 
MOV RO, -(SP) HH ON STACK 
MOV R1,-(SP) 33 pd ON STACK 
HOV Re, -(SP) 33 ReK 
1S: IN Rem EN LINE 
MOV (SP)+, RO 3 1ST CHARACTER 
CLR Ri >3;CLEAR DATA 
2S: MOVB "ho)+,-(SP) By es THIS CHARACTER 
= 3s isIE ZERO GET OUT | 
Ro COR sgh 
Rot OCR i 
BIC 807, (SP) TRIP THE ASCII JUNK 
foo (P34, He IN THIS DIGIT 
: TST + TACK 
™ AFP }3 csp | ELEM, TERT siege te 
MOV Re, T10¢T 
MOV (SP)+, om STACK INTO Re 
MOV ( 4,81 >:POP STACK INTO Ri 
HOV (SP)+; POP STACK INTO 
SHIOCT: .WORD GH ORDER BITS GO HERE 
-SBTTL TRAP DECBDER 
LP ROUTINE WILL PI STRUCTION 
Protec tea fit Oi meer ness 
HE DESTRED ROUTINE USING THE Ss Aine 16 WILL 
sana MOV 2(SP).-(SP) 


3 3 ASSUME THE STATUS OF 
BIC #20, (SP) + THE CALLER--DO NOT ALLOW 


Le I SNe ione. Test PART 1 WAC AON) 29-JUL-77 14:32 PAGE 263 SEQ 0266 
MOV #1$,-(SP) 33_.1-BIT TRAPS 






2795 
” RTI +s NEW STATUS 

1S: MOV RO, -(SP) $8 
wey 2(SP),RO $8 
nove (RO). RO +3 a 
ASL a : He fin F NOEXING 
MOV STRPAD(RO),RO 331 TO T 
RTS RO *3G0 TO ROUTINE 


;;THIS IS USE TO HANDLE THE “GETPRI” MACRO 


STRAP2: MOV (SP), -(SP) 33 THE PC DOWN 
ooo00e2 HOV 4(SP) ,2¢SP) THE pow DOWN 
I ORE THE PSW 


-SBTTL TRAP TABLE 


;#THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
:4BY THE “TRAP” INSTRUCTION. 
; ROUTINE 
STRPAD: .WORD STRAP2 
STvrE ; ;CALL=TYPE TRAP+1(104401) TTY OUT ROUTINE 
& *:CALL=TYPOC TRAP C ) Mang NUMBER CHITH LEADING ZEROS) 
ee Zs 
STYpon fiGatt=tPON — TRAPSaC } 


w 
5 
~ 


ee HES) ie be 
STYPOS ;;CALL=TYPDS sett ; CIMAL (WITH 


NARY (ASCII) NUMBER 
SGTSWR ;;CALL=GTSWR § TRAP+7(104407) GET SOFT-SWR SETTING 


a 
m 


Ge Be bas Bm fr Bee fe eb ht Be ft ft fe b= Bs Bs Bt he me be fre et Be be Fm ee ee me ee Pes Jem Dm ht Pe hs ee Pe bm Be fe ee ot Be fe we bo se 


a 
SCKSWR ;;CALL=CKSWR § TRAP+10( 104410) FOR IN SOFT-SWR 
*3;CALL2RDCHR  TRAP+11(104411) TPEIN TER ROUTINE 
Nj CAL TREY! (1 18) TTY N_ STRING RE 
; TRAP+13( 104413) READ AN OCTAL NUMBER TTY 
: TRAP+14( 104414) SAVE ROUT INE 
cerPriscl 15) ROUT INE 
‘ROWER DOWN ROUT! persone 
1 o6ss42 000024 : MOV SSILLUP, 8PWRVEC ;;SET FOR FAST UP 
Biers 000340 000026 MOV QUPWRVEC+E ; ;PRIO:? ; 
1 MOV RO,- tS) He RO ON ACK ° 
1 MOV RA» ) $3 R TACK 
1 MOV ’ = (SP) He fe Oh TACK 
10346 MOV. —-RG, -(SP) PUSH RO ON STACK 
my cig) Hh ere 
igs 113516 HOV 9th (SP) art ON STACK 
1 beeuee oo0024 HOY SSPARUP SEPURVEC’ $;SE j UP VECTOR 


FOS 
ZRMCA - RMOG FUNCTIONAL TEST, PART 1 29-JUL-77 14:32 PAGE 264 SEQ 0267 
ROUTINES 


0 MACY1 
OZRMCA.P11  29-JUL-77 13:33' POWER 


a3 


UP 
-e ;;HANG UP 


es 


SHINEE HE 
Ate apr uRVEC aie FOR FAST DOWN 


ee 


PHS ie 
: Re ae 








mat sat oe, mg fo DOWN VECTOR 
st baTOsy 


SPOR AT TS, SASS Oren 


- EE SO 


sASCIZ ¢15><12)>"POWER” 


g pega, 


Bi 


- SBTTL gr COMMUNICATIONS ROUTINE 
JHA HHH HHH HHH EE 


rv: nove i See $310 Meena Mesekce 





SaTY4: MOVB 81,SFFLG ;;TO ONLY REPORT FATAL ERROR 
F RO,-(SP) PUSH RO ACK 
MOV Ri; -(SP) PUSH R1 on TACK 
ee ipa gf resort 
CMPB = SAPTENV,SENV ss; TING UNDER APT? 
BNE 331F NOT: BR 
B1TB SAPTSPOOL, SENVM ;; SPOOL MESSAGES? 
HOY SH(SP).RO fad MESSAGE 
#2, 4(SP) - 
1S st ont 35 SEE IF bone ‘bore W TURN soo XMISSION? 
MOV SMSGAD + a i, 
25 1S1B cRO)+ Bs 1 it pts 
a pe pees 
MOV RO, SMSGLGT He TH IN Me renLgOK 
HOY AN, SHSGTYPE Te pet TO 
3S: MOV a4(SP),4S ;;PUT MSG ADDR IN JSR LINKAGE 


GOS 
MACY 3O(104G), 29-JL-77 14:32 PAGE 266 SEQ o26e 


SRR PL oie eas’ | RPT COMMUN 
000004 ADD #2,4(SP) - BUMP RETURN ADORESS 
oa BPsrue 1 . oe irate Ter 177776 ON STACK 
1 Bbocd S 
aH ? 066024 10S TSTB on $7 SHOULD REBORT FATAL ERROR? 
1 001242 j RUNNING UNDER APT? 
a ; 001222 11 tiScrype + NToeD LAST MESSAGE? 


aise) SFATAL Hider eon 


=e 
Gd 





i LOG 
c. Seay 


aa 
Spun SURG SoaeeR aa 7 
4 
Se 
: 


Soot 


Be he Bee Dee Bas Be he Re fas fee me ae Dine fn Bas fens fae Pno Bae Dae be fas fins tee Poe Pe bee poe 


Pe cab agiab aba aad ad ag ab ab ada 
Sh 


PC 33 

602; SMFLG: *:MESSG. FLAG 
of SLFLG: *:LOG FLAG 
066024 SFFLG: Cc > FATAL FLAG 

APTSIZE=200 

APTENV=00 

APTSPOOL=100 

.NLIST BEX 


HOS 


RMO3 FUNCTIONAL TEST, PART 1 MACY11 30(1046) 29-JUL-77 14:32 PAGE 266 SEQ 0269 
13:33" CONSOLE MESSAGES 


DZRMNCA - 
OZRNCA.P11  29-JUL-77 1 


-SBTTL CONSOLE MESSAGES 


<CR><LF>@CANNOT RECOVER THE BAD SECTOR FILES FROM LAST @<CR><LF> 
Be THIS DEVICE@ 


cota CG «LF aNd 


“CRD <LFYETYPE HELP TEXT (Y OR N)?7@ 


‘ay RED MOPARS THESES OF 


i 

w 

2 

i 

BS 

wo 
me 


r 
iE 


ees * 
= peel 


: 0 115 Ds «CR <LF> 

ie Gilde Geiss Gitte: checty Sean ctrsaentiy fer I 10 Pea, 

15 OSi01 11s CNSLO3: :ASCI (GD «LP oe (a 

1 1 116 CNSLOY: BSCIT ¢ CRD «LE? 

1 1 1 . ee 

1 1012 O3011S CNSLOS: .ASCI (CRD (LF SRM Se inter nt PRIORITY (a 

15 O4e412 OS2116 CHSL Ob: "ASCIZ <CR><LF>@ENTRY OUT OF 

15 OS4S24 042520 ASCII <CR><LF>@TYPE (A) TO TEST ALL DEVICES, OR TYPE DEVICEd 
7040 042502 <ASCII @ NUMBER(S) 

15 O42524 O46522 “ASCIZ <CR><LF>@TERMINATE INPUT WITH CARRIAGE RETURN 


F 
: 
2 
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066770 


I05 


30( 1046) 29-JUL-77 14:32 PAGE 267 


; FUNCTION CODE TABLE_IS USED TO DEFINE STATUS CONDITIONS FOR 
;EACH FUNCTION CODE. BIT USAGE IS AS FOLLOWS: 


ATA - BIT er SET_IN THE ENTRY FOR A GIVEN FUNCTION CODE 
I 


iia 
WCE - BIT 14 IS SET IN ENTRY FOR_A GIVEN PPT ION COOE 


SIF WRITE CHECK ERRORS ARE AS A FUNCTION OF THE 


OPI - BIT 13 IS IN THE ENTRY FOR A GIVEN FUNCTION CODE 
SIF OPI ERRORS ARE DURING THE EXECUTION OF THAT COMMAND. 


Ive - BIT 12 IS IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF IVC ERRORS ARE DURING THE EXECUTION OF THAT COMMAND. 


- BIT 11 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
i at tt ATTEN ERE EROOLED ARE SMES cee, MOP COMMAND . 
gy a 


ar mal sR a WREST SRE ETON oe 
ag see hy AT die CS Baas eT oe 
Sommer, We rms ENMOLED BY THIS BIT owe “TRE” “DLT”, “NEM, 


; BIT 08 IS NOT USED. 
HCE - BIT O07 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
‘IF HEADER ERRORS ENABLED DURING THE EXECUTION OF THAT 
HEADER ERRORS I “HCRC”, “HCE™, “FER”, AND “BSE”. 
I ENTRY FOR A TION CODE 
La para’ FIgLD ERaORs RE ENED DURING THe, EXECUTION OF THAT 
SE ERRORS INCLUDE “MDPE™, “DCK™, 
; BIT OS IS NOT USED. 
; BIT O4 IS NOT USED. 
; BIT 03 IS NOT USED. 
; BIT O2 IS NOT USED. 
; BIT 01 IS NOT USED. 


; ILF - BIT OO IS SET IF THE FUNCTION CODE IS ILLEGAL. 
FNCOTB: ;FUNCTION CODE TABLE 


SEQ 0270 


JOS 


SEQ 0271 


x 
— 
& 


oF FRR RRA 2-- enn an 


Gq senses ¥ag G29 cee 
BEE 


he 
ie eee eee ae 


ILLEGAL FUNCTION (2) 


e SaWR eS wile aoe Eerie 

: Fata} 

4 ius 

z wos BB 

S Se fe oY 
3 sy Sowseosp oe iYo Swe D HNO? 
<8 SR CchRSSSBBSSRBBBRBSGURBBBBBRAES 


3S - — ee od —y rl =l= —e) 
POG ={- 
~~ -— =— = wiv 
Sa Be See aeae 
ww 
ome Ln] ed ad md on md HO -~ =——OO-<— 
ous 
2 ar 
-_ 
-~_ 
‘a. 


Se 
Ei 





DZRNCA - RMO3 FUNCTIONAL TEST, PART 1 
OZRMCA.P11  29-JUL-77 13:33 


BBSesene 
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ATTENTION (ATA) TABLE 


-SBTTL ATTENTION (ATA) TABLE 
ATNTBL: .BYTE . 
gL 


SEQ 0272 


LOS 


SLI JE PT! BTA PAT? 2 ree 


SEQ 0273 


-Pil 


-SBTTL DATA PATTERN TABLE 


_EEEREERETTTETTTTTTRTTTT 


RGDTPT: 
MIXED: 
ONES: 
ZEROS: 





SEseuasb Su Us Sssesnesie see Seecnatcy 


Sa SO SA RRS Os 


nanan. banbanbenbenben>en banda benbendenbenbendenbendanhenbenbenbententenbendenbentententen banker! 
KARR KRAKRARARAAARARARAAAAARAAAAAAARAARRL 


BESEBSESESSESESSESSESESESESSESESSESSESSSSSESESESS 
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DZRMCA.P11  29-JUL-77 13:33 DATA PATTERN TABLE 


apes 





2 
if 





RM RERRARR sce 
SESSSRASISSASSOSSA SESSA SS SSASSSSAASSENAS SSSA SSERSSSESSSS 


pee ae ee Re me Bo Ba fe ee fs ep ie be ee Dee eo 


z HB Bae 
4 bobsS.- 
berise 65533. 











NOS 
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SEQ 0275 


Ey, SuaReaneaesacenegueanennennenne 
= 


i 
SEES 
i 
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ERROR Nessace TABLE 


-SBTTL ERROR MESSAGE TABLE 








regres 
Rabe 






yr Turon, NOMeEwwe-o- ee ce ce Gitue= 


’ A 
88 S88 2 GS GO GS GS SO 68 SE SE SE SS SE SO SS SS SE SE SS GE GS SO SE SO SE GE SO SO SS Se SE SO SE SE GS SO ee 





t+ 


2 







se 







a 





+ 


+ 









ag 








+ 







~ 
fi, 






a 










J 






t 





— 


tiff 





rv 
' 


57,0 
EMS115,EMS140,ENS14i ,O 
S11 »£MS141,EMS164,0 
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